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nawa 



CC3rt3ur^h 




2 K<Mfer> tz Eft £^S L T U J To 

££ L T i% & gjpiti * U v t^USB 
n, y-A ^ i- v -y ?mi<r>& 
tz^X'To 

ft&itT* *■?£ fci*T—-?1rZ 
■b-7'Ltzi7LT\ '&fZ*>h<7) 
g&P^ffcPqfr £9115 L T N & fc fc 

flFB B p* (<r- A Sa-^«^ gflPI 
(7)tf^-(i UJH fc ) £»l ^T JISSI5 

BASIC % MuSICA, mDUD^-ftl 
%i£r>Xl*tztz'\.*Xbfr$.\.*£lt 



?-ks.n.-yvom 



Ko fcfc'U MuSICAfctefflLTl* 

15 fc\ $« $ n/c7jn ij$§s# 4 

£ LT5000R7><7)[2]##?r^L 
_b(f £ To *FM* U V-fl^Q-k . 
*T£ fc^*fc<*A,<7>#*q£fc 

F107-24 

«§?«K§EfSf»LiJ6-ii-i 

MSXv>#S>:/«*8p 







pt= 






MuSICArsCCiFMBJS^M 



« BOSS BGM » 
From "PARODIUS" 
(C) 1988 KONAMI CO. 
Programed by Mana-chang 



110 

120 

130 

140 

150 

160 CALL MUSIC (1, 0. I, 1. I, 1. 2) 

170 CALL VOICE (§1,61.81,81.91.833) 

180 FOR 1=0 TO 7.-READ AS :A=VAL ("&H"+A$) : 

CALL AUDREG (I, A) :NEXT I 

190 CLEAR 2000:DEFSTR A-Z:POKE 4HFA7C. 28 

:SOUND 7, &HF7:SOUND 6, 14 

200 T="TI45" 

210 A0="O4L16V15DEG-GAB->CD-DEG-GAB->CD- 

220 B0="O4L16V8R8DEG-GAB->CD-DEG-GAB->" 





230 C0="O3L16V14DEG-GAB->CD-DEG-GAB->CD- 

240 E0="O2L16V14DEG-GAB->CD-DEG-GAB->CD- 

250 R0= " V88A 1 3S 1 24S 1 24S I 24S 1 1 6S 1 1 6M ! 1 6S I 

I 6S ! 1 6S 1 1 6S ! 1 6S I 1 6S I 1 6S I 1 6S ! 1 6S ! 1 6S 1 1 6S ! 

16" 

260 P0= " S0M 1 600 L 1 604C24C24C24CCCCCCCCCCC 

CCC" 

270 A="DD-C<BB->E-DD-DD-C<BB-B>CD-":A1=A 

+A 

280 B="R8DD-C<BB->E-DD-DD-C<BB-B>":B1=B+ 

B 

290 C="Q603L8G>G>B->B-<A>A<A-<«G16G16" : 

C1=C+C 

300 D= "0603L8G>GB->B-<A>A<A->A-" : D1 =D+D 

310 E="Q8L802G>G<G>G<G>G<G>G":E1=E+E 

320 R="S!8C16C16SI8C16C16S18B!8CS!8S! 16S 

1 1 6" : Rl =R + R 

330 P="C4C4C4C8CC":P1=P+P 

340 A2 = "DD-C<B>C<BB-AB-B>CD-DE-DD-D2. R4" 

350 B2="R8DD-C<B>C<BB-AB-B>CD-DE-DD-D2. R 





360 C2: 
370 D2: 

380 E2: 

381 R2: 
16SI16' 

382 P2: 
390 A=' 
400 B=' 
410 C=' 
420 D=' 
430 E=' 
440 A4: 
450 B4: 
460 C4- 
470 D4: 
480 E4: 
490 R4: 
6SI16" 
500 P4; 
510 A5^ 
520 B5: 
8D-" 
530 C5 
E-" 

540 D5="R105DD-DE-DD-DE-":E5='03D4D-4D4E 

-4DD-DE-DD-DE-" 

550 R5="B!8B!8S!8S!8B18B!8S!8S!8B!8SI8B! 

8SI8BI8SI8BI8SI16SI16" 

560 P5= " R4C8C8R4C8C8R8C8R8C8R8C8R8CC " 

570 A6="L 1 605DE-DD-DEG-GAB->CD-DD-E-D" 

580 B6="L16V8R805DE-DD-DEG-GAB->CD-DD-" 

590 C6="03D2. D8>E-I6<D1 6" :D6="0502. D8E-1 

6D 1 6 " : E6= "03D 1" : R6= "S I 8C 1 6C 1 6S I 8C 1 6C 1 6S I 

8C1 6C1 6S 1 8S ! 1 6S 1 1 6" : P6= "C4C4C4C8CC" 

1000 PLAY #2. T, T. T. T. T, T. T. T 

1010 PLAY #2. A0. B0. C0, "". E0. R0. P0 

1020 PLAY #2. AI.BI.CI.DI.EI.Rl.Pl 

1030 PLAY #2, A2. B2. C2, D2, E2. R2. P2 

1040 PLAY #2, A3, B3. C3. D3. E3, Rl. PI 

1050 PLAY #2. A4, B4. C4. D4, E4. R4. P4 

1060 PLAY #2. A5. B5. C5, D5, E5. R5. P5 

1070 PLAY #2. A6. B6, C6, D6, E6. R6. P6 

1080 GOTO 1020 

1 0000 DATA 40, 1 , 0. A. F7, FF, 40. 



;C+"G>G<A>A<B->B-<BB1 6B1 6" 

:D+ " <G>G<A>A<B->B- <BB " 

■E+ "<G>G<A>A<B->B-<B>B" 

;R+;s 1 8C1 6C 1 6S I 8C 1 6C 1 6S I 8B I 8B I C8S I 

:P+"C4C4C4. C16C16" 
GG-FEE-A-GG-GG-FEE-EFG-" :A3=A+A 
R8GG-FEE-A-GG-GG-FEE-E" :B3=B+B 
04OCE->E-<D>D<D-<C1 6C1 6" : C3=C+C 
04C>CE->E-<D>D<D->D-" :D3=D+D 
03C>C<OC<C>C<C>C" :E3=E+E 
"GG-FEFEE-DE-EFG-GA-GG-G2. R4" 

;"R8GG-FEFEE-DE-EFG-GA-GG-G2. R8" 

^C+ "05C>C«A>A<B->B-C>C" 

■D+"<C>C«A>A<8->B-OC" 

■E+ "<C>C«A>A<B->B-OC" 
R+"SI8C16C16S!8C16C16BI8SI8B!8SI1 

:P+"C4C4R8C8R8C16C16" 

^"05L8DDE-E-DDE-E-DE-DE-DE-DE-" 

;"05V15L8R4D-D-R4D-D-R8D-R8D-R8D-R 

="04D>D<D->D-<D>D<E->E-<DD-DE-DD-D 
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?—kB.=L—Vv9%m musical 



GALAXIAN3* 



W-A3 



FMSStscc^iiTSffi-aru 






************************************** 



SETO SOFT WORKS PRESENTS 



The Opening Theme Of GALAXIAN3 

From EXPO '90 By NAMCO I 990 

(C)NAMCO. ALL RIGHTS RESERVED 

This Program For MSX-MUSIC, PSG&SCC 

Programmed By Hiroyuki Seto 1991 

************************************** 
FM1 =t0. Fla. a00, a01, a02 

. tl. a03. a04, a05. r 
FM2 =t0, F2a, b00. b01, b02 

. tl. b03. b04. b05. r 
FM3 =t0. F3a. C00. C01. C02 

, tl, c03, c04, C05. r 
FM4 =t0. F4a. d00. d01. d02 

, t1,d03, d04, d05. r 
FM5 =t0, F5a, e00.e0 1.602 

, tl. e03, e04. e05. r 
FM6 =t0. F6a. a00. a01. a02 

. 1 1 . a03. a04. a05. r 
FMR =t0, FRa. f00/8. f01. FRb, f02/3. f03. f02/ 
6 . 1 1 . FRa. f 04/1 1 , f 00/20, f 05. r 
FM7 = 
FM8 = 
FM9 = 

PSG1=t0, Pla. g00/8. g01. PI b. g02/3. g03, g02/ 
6 , tl. Pla. g04/1 1 . g00/20. g05. r 
PSG2=t0, P2a, b00. b01, b02 

. t1.b03. b04. b05. r 
PSG3=t0. P3a. c00. C01. C02 

, tl. C03. C04. C05. r 
SCC1=t0. SI a. a00. a01.a02 

, tl. a03. a04, a05. r 
SCC2=t0. S2a. b00, b01. b02 

. tl. b03. b04. b05. r 
SCC3=t0. S3a. C00, C01. C02 

. t1.c03, c04. c05. r 
SCC4=t0, S4a, d00. d01, d02 

, t1,d03, d04. d05, r 
SCC5=t0. S5a. e00. e01.e02 

. tl, e03, e04. e05, r 
. [ temp j 

t0=t126 
tl=t168 
. [ rest ] 

r=rl rl 

. [ part a ] 

F1a=864 v15 q7 o4 z24 si 
F6a=810 v15 q7 o4 z24 si 
S1a=809 v12 q8 o4 z24 

a00=112b-fb->(e-2. e-1) e-e-e-e-e-e-e-6e 
-6(e-6) e-2<f6f6f6 

a01=b-4>c4e-4dcd <b-4f f f b-4f 6f b-4>c4e-4 
dcd a-2. <f f f b-4>c4e-4dcd 
a02=a-8r8d-2a-ga- >c+8r8<f +2>c+<b+>c+ c+ 
<b+>c+c2ccc c4cccc4ccc c2<f6f6f6< 
a03=11b- f 2. b-4 >e- d2 (c2 c) c 
a04=18<ff 16f 16ffrfff ff 16f 16ff rff f ff16f 
16ffrfff ff16f16ffrfff f f 16f 16f f rf f f 
a05=f rr (e-)e-e-4e- f rr (e-) e-e-4e- frr(e- 
)e-e-4e- (fl) fl f r<b-124b-b-b-b-2 

. [part b] 

F2a=864 v!4 q7 o4 z16 si 

P2a=813 vll q8 o2 z16 

S2a=809 vll q8 o4 z16 

b00=112r2e-<b->e-(a-4 a-1) a-a-a-a-a-a-a 

-6a-6(a-6) a-2f6f6f6 

b01=(b-1) b-2. >c4< b-1 b-rb-b-rb-b-rb-r4 

b-1 
b02=b-4f2e-4 e+4f+2f+4 r4>a-2a-a-a- g-4g 



-g-g-f4fff e-2<f6f6f6 

b03=11 (b- b- b- b- b-) b- 

b04=18r1 b-b-16b-16b-b-rb-b-b- b-b-1 6b- 1 

6b-b-rb-b-b- b-b- 1 6b- 1 6b-b- rb-b-b- 

b-b-16b-16b-b-rb-b-b- 
b05=b-rr (a-) a-a-4a- b-rr (a-) a-a-4a- b-rr 
(a-)a-a-4a- (b-1) b-1 b-r<b-124b-b-b-b-2 

. [ P art cl 

F3a=864 v14 q7 o4 Z08 si 

P3a=813 vll q8 o2 Z08 

S3a=809 vll q8 o4 Z08 

C00=112r1 d-<a->d- (g-2. ) g-g-g-g-g-g-g-6 

g-6(g-6) g-2f6f6f6 

c01= (f 1) fl fl e-re-e-e-e-frcf4 fl 

c02=d-4<b-2b-4 b4>c+2c+4 r4<a-2. b-2b2> 

C2f6f6f6 

003=11 (fl fl fl fl fl) f 1 

c04=18>M rl e-e-1 6e-16e-e-re-e-e- e-e-1 

6e- 1 6e-e-re-e-e- e-e- 1 6e-l 6e-e-re-e-e- 

c05=drr (c)cc4c drr(c)cc4c d-rr(c)cc4c (d 

1) dl dr<b-124b-b-b-b-2 ' 

. [ par t d] 

F4a=864 v15 q7 o4 Z00 si 

S4a=S09 v12 q8 o4 200 

d00=112r1 rl r2b-6b-6> (c6) c2r2 

d01=r1 rl rl rl rl 

d02=r1 rl rl rl rl 

d03=r1 rl rl rl rl rl 

d04=18r1 rl rl a-a-16a-1 6a-a-ra-a-a- a-a 

-16a-1 6a-a-ra-a-a- 

d05=b-rr (a-) a->c4<a- >drr (c) ce-4c< g-rr ( 

a-)a->d-4<a- (b-1) b-1 b-rb-124b-b-b-b-2 

. [p a rt e] 

F5a=833 v15 q6 o3 Z00 si 

S5a=810 v15 q8 o3 Z00 

e00=l 1 2b-b-b-b-b-b-b-b-b-b-b-b- b-b-b-b- 

b-b-b-b-b-b-b-b- a-a-a-a-a-a-a-6a-6 (a-6) 

a-2f6f6f6 
e01=14b-agf e-dcf b-agf 1 12e-re-e-e-e-f r 
cl4f b-agf 

e02=g-8r8g-2g- g+8r8a2a r (a-2. a-1) a-2f 
6f6f6 

e03=v8b-agf e-dc<b-> b-agf e-d (c2 cl) cl 
v15 

e04=18<ffrfr2 ffrfr2 ffrfr2 ffrfr2> frrf 
r4r<f 

e05=b-rb- (f) f f4f b-rb- (f ) f f 4a- b-rb-(f)f 
f4f (b-1) b-1 b-rb-124b-b-b-b-2 

. [ pa rt f] 

FRa=v1 1 

f00=s32s32s32s32s32s32s32s32 

f 01 =sl 2s 1 2s1 2s1 2s1 2s 1 2s6s6s6 r2s6s6s6 

FRb=vl5 

f02 = bsm8. bsm16sch4bsm8. bsm16sch4 

f 03=bsm6schl 2sch6schl 2bsm6sch1 2sch6sch1 2 

f04=s1 

f05=v15bsm4sch4r2 

. [p ar t g ] 

P1a=811 vll q8 

g00=132cccccccc 

g01=112ccccccl6ccc r2ccc 

P1b=v14 

g02=811c8. c16812c4 81 1c8. c!6812c4 

g03=81 1 c6d 2c681 2c 1 2 811 c6c 1 2c681 2c1 2 

g04=c1 

g05=812v15c4811c4r2 



W E3 tl^r y 








<FM VOICE No. 64> 








MD 8-7- 1 • 1-15- 8- 5- 7 


0-0- off- on 


off 


CR »■• 2- 15- 8- 1- 6 


0-0-off-off 


off 


<PSG VOICE No. 11> 








32-20- 6- 4-off-on -5 






<PSG VOICE No. 12> 








32- 12- 10-28-off-or 


•5 






<PSG VOICE No. 13> 








32-32- 15- 32- on -off- 17 






<SCC VOICE No. 9> 








32- 0- 3-32 








0-F8-F0-E8-E0-D8- 


D0-C8 






C0-B8-B0-A8-A0-98- 


90-88 






80- 78- 70- 68- 60- 58- 


50-48 






40- 38- 30- 28- 20- 18- 


10- 






<SCC VOICE No. 10> 








32- 15- 2-23 








0-31-5A-75-7F-75- 


5A-3I 






0-CF-A6-8B-80-8B- 


A6-C7 






0- 10- 18-30- 38-50- 


58-70 






78- 50- 58- 30- 38- 10- 


18- 
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320 *?s/x*hSRia>« 
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# o £ P >t°a.— ?— IZ«9£&J# 
■3Tt**Afc<* — *f=Jt(*¥ 
\.zLtzZtW1bZ£&7 fts£.L 

£ *r* 7' v x ? h ^]TO# A,T 
C7)£\ y-A^^-p^uti, Hi: 
a fcTKifttz J£i m& c Tig *b ti 3 cfc 

£W:^;L*<7>lEteU:, 7°p^*7 
Atzj:(3:£ , fi?*£*HTi.^AT* 
frWrV, *>H)d>£Ztj:^ 

7vx? M&IrUJx I990%ft<7)7° 

•*•? < «bl^* % *byP^ f 7V— & 

^AA,* UM^^^^-^-^L J: ? 

t**k *£<7>cfc£i^£ N * 

7vi^ h^tr^](7)lij||#i^ >\*V 
a >Jg±&7)^T*fc^;fx do. =7 

P ?7 -?-Jstft<7)AM(Z t -? T fc 
IIBfflMc*— 7- KCfcoT < 

**m&l±£8-3Ti.**A.£fJ:;ta„ 

#*«* UK£\%l^X<JM#>z 

?)[Z S -tfP-y?7.<7)/\°P • 77U|- 

+*ffFft/3Ff (PARC) T'H8#§£ tlfc 
r Smalltalkj £ t \ «) »S* N «b W T 
ZtzA,tz£ti* UT-tot, Z. 
CO Wfifti A <7>^£ # Dynabook<7) 

->tzA,tz£te„ $>(7)Dynabook£l* 
■5<7)tit>*)^^ 3fc£<7)J3100*> 



U — X<7) Z £ Xi£ fc < T, 1970% 

ix^TLhtitz, maws-vi- 

JUP > \dn.—9—0)Ztti 

Z(7)Dynabook(J N 8R&S!T-Wfl| 
jjifflTV^TV- «$£Afcti73l£ 
Wt# T\ * >y h 7-* HfiSBE L 
Xi&L%'?*-9Xf—i'a>l:L 

X^S-iSZtltzb(Dtzo 

i;t#fci>*?tt£ *ft£2o%t> 

p 7°n -tz «y -9— **f^ htitzfttf 
1971%7)Z:£fcfU =M£P>fc° 
a— ^ -AtlWCfti 5 * A 
TH-5AI& t5^A,4?L>^A^-afco 

/cWcUPV-L^-?— ^77^ 

X\.*£ti^tzt\.^X\.^(&&] 
<7)CGtt1962%lZMIT <7)Hftf 7 > 
K tfMIS L fc Sketchpad 4: ^ "5 M 
ISM^v-^xAJo ^n^:c7)iz v T 7 
£>"•*<«; WfcT^xcnAfi* 

ms&.t u 1 ^ro, mt&m 

* J: -5 fc/ < 7 - 2: w§L*ftr> p > 
^-?-£*#oB#f-t*><< 5£# 

f £ £"A/«C fc <7>*r £ I ^ (7) £#;L fc 

t>mz\ 

-5 <7>ti^ C'?(£ZC7)Dynabook<7)-f 
— > a >^/N°V P XD'M-itT^^- 



fa* tzt-h. asA^iTzn*' 

Art: U * *<7>cfc -5 tt*W*r*fcflt 
^(7)/f tttuzb-omtzhs 4- 

(7)P>fc°:i— ?— T*& N F^>« 
>r< <7X ^ — v L tzZi > d=L— 5 

-^Z(£J^jSl^TL^^L^Ltao 

T 7 7 > • <r -f (£ Z (7) Dynabook^ 
#x.fcHL/cC^, ^(7)7°Ph^"r 

a >(7)^T- fc * ^ r ALT0j(7)^ 

ftlZi^E L fc»t— (75/ \°- V t";up 

>t:°j.-^-x\ &tmzm<njc$ 

*m&-TZ> dy h v y -?f-( 7, 7° 

TPARC?rM^lZ^oT^/c^x 
-r — 7*> • v a 7'^.7D\ ZC7)i?f^: 
(7)^S? ^=^U\ZnV!XTy-fiV 



Lisa^, ^<7) V >y + > h *y *> j.<7) 

m$z*ifte->tzWitz a 

* OW&XiAs 4°^MS-D0SV 
v>T'? TLhWHZt* i) o-3&5 

A,T<7)(i, i;o(W7'yi? hit 
|p]<7)Ilja«! ^LT^*nT#fcfc 
(T>tz^tzA,tilt^ 

£T N 7'7>"7--f* < Dynabook 
e<7>^81JS^ LT^f:^7'y 
x? h*g|S]<7>ffijfelJ, fBSmtzLx-5 
t, AWfcP>tfa-^-<7)W<7) 

l§?r*£x.-l> o T Z i: ^j.^/c*J: tao 

yp^v5>^'=ig(i, 5:>iT« 
Hffc3 ti/cAX(7)S1lr-'o faWt 








Kv^ h/*P*E 




AI$Dh! j >A.*5<!S 



XA£P>t°:x— ?— (7)P $.3.— 

*gWcU^U£Xl^X#<X N 
X\ %titft: J )§m3&ht£<Mr- 

mmnz<^nmzx^x^<A J 

4f2 A&Zk t>^ L l V7)fr t ,H 

tzv-rzAstzXtec 

tl^fflti, ZtlST'(7)V7h 

£ < c:)*iv7)(£ % yp^'^AtJ 
#?WP<7)*'i>£fc^X, ^co^ 
^ZLtzij^XV-tL^V-t^fm 

fc, 7=-'-?t7°P?7A(2SIJ(7)fc 

<7)£LX, 7>ttX#a_X L $ ?£ 
i^ozttzo Z(7)3£tLiX. 7°p 
?'^A*fE^tzZZ:<D$>Z>Amz 
Ittimx-hKAtX-hK^Z £ U 
A,tztf£\ W&£%tnt£ir-mz 
A,teZ£l£milztj:^frtf 
tz t *,& ?')ls-7°Xl°Sfrls# 

£ff£WJ -y-iZU-oX, A $ 

x<tan\ B?^^ib(7)#(z-^ 

l ^X||C L T "lb J: -5 *% ^ WW 
M&lo Z(7)££A£A,l:frB£ 

•So *»*%*/— y— tt~LXJafc 

X\ 4±mkLXt>bx.&1bi1tz% 
t z Wfn ?=7 Aammti 
r>tz<ti Tttfc < X, U - y- 

^77 (7)|£c7)3 | # 77 * T1SCA »J 




*HHA»J±a5»BXl*X, T^X 
*&£ Lfctt U *»#*>4M, J: < # 
x.XfrZ>t, ZttetkX-bK^ 
UZ\.<8t£t>\.1ti 
*ZX\ AMtt^WoXU* 

*>*/-;££ l§u:&5*£, 7°p^7A 

wtt^Xfc^'b-ttct -5 £ i>-5 <M)\ 
4tf)ivb«>S*7vx;7 MIp^j: 
A, f; J: tec fLX *0>#7$Jx 

? h£u-)C7)(i % x— 9£.-7n? 

7AAHti:4-3fcfcwi:inS 

££*.(*? -3 £<7>0!IX\ A£A 
12 a 0)7*— ? <o$kxb?i*?t in*? 
7 74tt"57J>££7cfl-7XU& -p 

*ft£*aat-*7*n #9 a£[wib# 

[Zj#-? N tfT^x^htl^frtf 

fto t7'yi^ Mig7>*r£*7^ 
-7 Xtt*£ L fc b <fc l ^/r*JH X i * 

***»oX<ft3>;b(Jfco 

:ni"W)7 , a^7Ait r;£ 

JLtfU-lfcATi^ft-Wix 1 
li*-5 f*-?^(s*i:t^ 7°n?7 

A£fFffl£i±$£#;LXWco X 
fc N Z(D^5Wzt, 1.0+1.0ff>£ 
#(7)+£U-)7°P?* ; 7A(i, $o 

# £&9 fc<7)£teteWfttf&b 
(7)1 £'J^&££-g-it;i.CH;}:,P>fc 



a-^ -rtSR(7)7 : '-^«t*SI-9 
•jT < -So fcffr b* + £ U-) 7°P ^ 

7Aij, S7>a < fiFffl-r5T f -** < 

t C ^ A<* 7'y x ? h ffil^X-ti, 

U9 7'P^7A^|7Tl^/; 

v-t i)<n 1 ^^>£$nx < tut o 

X^-y-tz-v^^?)t, 3^(iP 

¥(->£? nx < n^^7^it^' D 

-^^-iiipLXfc, fc^^yp^* 
7A^J MEBELttuxTt;-? 
XZttZo tz£*.tf-?J['3-ST'( 
Tit-? X(ntfK&&rfflixtz'\l £\ 

Pe t t§C7)^l^^/v'P^|| N *<7) 

Piii(7)o(t77, »*e, -7--rx<7) 

i:'(7)<«b^(7)!mjtxm^f^\ if 
^c7)SIS(7)L77^^j:^ T^X 
*SI^/c^xtc7)'lt«(z4'-5>o Lfr 
fc-*<7>lt«W^*«x ig^.?)-i: 
lJfc-7Tt>3fc&Z£(J#l.\, 
C(7)^:# x B*<7)T f — ^i#*^ 



f^^-rnif i^^^p^xv.^x < ft 

ftt£ ^<>7 , n^7A«Si(t 
G4*»^A,ili®lctaxj: i:L^-5Mi 
ifi4V-y-fe-v£&£fz{rC\ ^ 

<7^a<wt < zt>vt3o mz, Z 

X, fftwyp^Afct, ^< 

>yp ^^ A±i*izfflaswc5ftji 

fc?Oi:o, "ftxyp^'^A 

* 7*^ x ^ h *gifij<7)*i ^ i: 3 ^ fc' 
tzUXM^OY -H^XIi, ® 

y-f p XiO-i: -z>U £ -?1&tLLtz 
*7'Vil? Ytzfrh. Z^-d^M 

mzmfr-sfrittzt), «fLv.^-r 

3>«:3a(rrSCi:X\ St><7)» 

^7<>F-»^ti% Z 

T'P'y^cT)^-)^ f7ifx.9 h 
^ < X fc P > t°j.— ^— (ZfirA^ 

fcpi ^rs z t #x# -5^? c^E 
%*3(tfto i:-5tt;<7)?Ei/) ( 77 

fp|(7)-f^-vX N ^ft(Z<^gfci£ 
LN^Z^>lZ$)?)<7)(i x ya7'^ 
NeXTtZjfl*^ * ft X I ^ -f > 5 
—7 x— ^ \S)\,y—t£Kfz'& te« 



: 



SB £1 ft 



TT^yi^SJilRlO 




*?2/x*h»|fi|S!©M<!:Urfck SmallTalk^ 
C++&£#35tf6n5o *CM!L BASICtt*?2>x 

t : btzisb(T)l5 : J^m(DUt'0tz.o * 

irwt^i z 1 iztez>fi\ ten 
Willis tzAslzr-fmx-te 

* *5 ^-5 SBfcTli, MSXViewfc 

^'(7)GUl(^*7 7-f t))\s- ZL— tf 

— •o?— 7i- *)t>*7s;x 

X.I& MSXViewT'^'v 7 £g|7Jrt 

ViewCALC£ v"}*T? 'J «y?f 
So *(7)£#ViewCALCCZte, ?*7 



£ *■& L t; *S**y 7 h "tz\ y°a 
C& It W&>&&<7) T -f =1 >i3 < 

-£*¥LT<ft 

te^Stl \ & g CDTMUZJ* U 7,'AT- 

7k4f(7)*£t!)#[I]5o fctW'tfc, 

<7)&&l2Jt&c7)&&W#T\ It 
&Wte&lZTBrfZo tTZ1)\ m 

TZ (M 1 £#J!B)„ ivbtf&&<7) 

£&*:*> tt* Sm (5*^7)^1 




5 




2 EZ 



an 



3 




<7^» £ lz=frPT Z> Z t GtftlMft 
*-*(El2**J»B)o -^(7)^JWr(i N 
c7)4-3>(7)-7*P-y^(Z-9-tt, 7*0 7 

? ~£ (c£« <7»I£ Stew"**,, 
fci:^ gfafe«i<7>*§£; ArbHc 
£&(* 0, H£&tt+ 1 , &&& 
t*— 1 £LTftg-f3o *LT* 

fc -a £ fe^ii(7)a^^^-^t!)-r 

<7>1±te-2lt (H) # )(7)Hty;U-f L 
>l£f&&LTl^<7)T\ C<7)g|$£- 

^A(z*riHisA4i:A\ fcA.iz 



X.5 «fc "5 f-ftoTU-5 {Z(Dhtz 
vx? MI«^^«c<7)/-*) 

BASIC(7)yP ^7 5 >^ZH?iM>< 
aM.T#S<7)t>3!gLU£JiS-5o if 

><7>?7#-§-* < ^^ oTLJofci: 
#(4, l26CWrc7)^t^fe^T#-§-$r^ 

7K^t^^^«(7)^(^ i:<(z 

C7)Z t $-#^ S t , BASICT'(4, fc 
(DttWm-tfhZo 



*^«5-7K«ic»[-3i:. U^fflTo -*x(i*«iOT»#«-Hfe«)TsSlLt;ai«|V7 \-f£<»ti» 



(X1.YD 


&-ymm 


^ (KXO.KYO) 


mom 


p^ KP( ) 


mmmw-y 


■1 KW( ) 


mmm-?y?mmmm 


KM 


mm 


(SX.SY) 


$M&wi-?yiztoi\z, 




mmtmwMm&oto 



90 



H« h/*n*ffi 



Aiang-^cis 



ttpj&'b&tftomto/jt* 


1000 ' ***> AUJ V3** 


1 490 SY=SY+SGN (KY (I) -KY (J) ) * (KP (J) =2) 


1010 SCREEN 5, 0:COLOR 15, 1, 1 :CLS 


1 500 SY=SY+SGN (KY (J) -KY (I) ) * (KP (J) =0) 


1020 DEFINT A-Z:DIM KX (20) , KY (20) , KP (20) , K 


1510 NEXT 


W (20) , SX (8) , SY (8) , CD (3) 


1520 KX(I)=KX(I)+SGN(SX) 


1 030 CD (0) =8 : CD (1 ) = 1 1 : CD (2) =3 


1530 KY(I)=KY(I)+SGN(SY) 


1040 GOSUB 1870:GOSUB 1730 


1 540 KX (I) =KX (I) - (KX (I) <9) + (KX (I) >238) 


1050 KM=0 


1 550 KY (I) =KY (I) - (KY (I) <40) + (KY (I) >202) 


1060 ' zxinU %-rj 


1560 PUT SPRITE I, (KX (I) . KY (I) ) , 1 1, - (SX>0) 


1070 X1=0:Y1=0:SC=15:SP=2:GOSUB 1780 


1570 RETURN 


1080 PUT SPRITE 0, (XI, Y1) , SC, SP 


1580 ' U*'J *>♦*! 


1090 S=STICK(0) 


1590 SX=0:SY=0 


1100 X1=X1+SX(S) :Y1=Y1+SY(S) 


1600 FOR J=1 TO KM 


1110 X1 =X1 - (XI =-1 ) + (XI =256) 


161 SX=SX+SGN (KX (I) -KX (J) ) * (KP (J) =0) 


1120 Y1=Y1-(Y1=-1) + (Y1=212) 


1620 SX=SX+SGN (KX (J) -KX (I) ) * (KP (J) =1) 


1130 IF STRIG(0)=0 THEN 1080 


1 630 SY=SY+SGN (KY (I) -KY (J) ) * (KP (J) =0) 


1140 IF Y1 > 8 OR XI > 48 THEN 1170 


1 640 SY=SY+SGN (KY (J) -KY (I) ) * (KP (J) =1 ) 


1150 SC=CD(INT(X1/16)) :SP=0:PR=INT (X1/16) 


1650 NEXT 


1160 GOTO 1080 


1660 KX(I)=KX(I)+SGN(SX) 


1170 IF STRIG(0) THEN 1170 


1670 KY(I)=KY(I)+SGN(SY) 


1180 IF XK9 OR X1>239 OR YK40 OR Y1>202 


1 680 KX (I) =KX (I) - (KX (I) <9) + (KX (I) >238) 


OR SP=2 OR KM=20 THEN 1220 


1 690 KY (I) =KY (I) - (KY (I) <40) + (KY (I) >202) 


1190 KM=KM+1 


1700 PUT SPRITE I, (KX (I) , KY (I) ) . 3, - (SX>0) 


1 200 KX (KM) =X1 : KY (KM) =Y1 : KP (KM) =PR 


1710 RETURN 


1210 GOTO 1240 


1720 ' *'*> va+A 


1220 BEEP:SC=15:SP=2:GOTO 1080 


1730 CLS 


1230 ' iV*> MV %-rJ 


1740 LINE (8, 32) -(247, 211), 15, B 


1240 PUT SPRITE 0. (0.212) 


1750 LINE (9, 32) -(246, 32), 1 


1250 FOR 1=1 TO KM 


1760 LINE (9, 40) -(246. 210), 4, BF 


1260 ON KP (I) +1 GOSUB 1310, 1450, 1590 


1770 RETURN 


1270 NEXT I 


1780 LINE (0, 0)-(48, 8), 15, B 


1280 IF STRIG(0)=0 THEN 1250 


1790 LINEO, 1)-(47, 7),4, BF 


1290 IF STRIG(0) THEN 1290 ELSE 1070 


1800 LINE (16, D-06.7), 15 


1300 ' 7**>fa 


1810 LINE (32, 1)-(32,7), 15 


1310 SX=0:SY=0 


1820 PUT SPRITE 30, (1,0), 8,0 


1320 FOR J=1 TO KM 


1830 PUT SPRITE 31, (17,0), 11,0 


1330 SX=SX+SGN (KX (I) -KX (J) ) * (KP (J) =1 ) 


1840 PUT SPRITE 29, (33, 0) , 3, 


1340 SX=SX+SGN (KX (J) -KX (I) ) * (KP (J) =2) 


1850 RETURN 


1 350 SY=SY+SGN (KY (I) -KY (J) ) * (KP (J) =1 ) 


1860 ' IV 7<l MIV v*n 


1 360 SY=SY+SGN (KY (J) -KY (I) ) * (KP (J) =2) 


1870 RESTORE 1950 


1370 NEXT 


1880 FOR 1=0 TO 2:B$="":FOR J=0 TO 7 


1380 KX(I)=KX(I)+SGN(SX) 


1890 READ A$:B$=B$+CHR$(VAL("&h"+A$)) 


1390 KY(I)=KY(I)+SGN(SY) 


1900 NEXT:SPRITE$(I)=B$:NEXT 


1 400 KX (I) =KX (I) - (KX (I) <9) + (KX (I) >238) 


1910 FOR 1=0 TO 8:READ SX(I) :NEXT 


1410 KY (I) =KY (I) - (KY (I) <40) + (KY (I) >202) 


1920 FOR 1=0 TO 8:READ SY(I) :NEXT 


1420 PUT SPRITE I, (KX (I) , KY (I) ) , 8, - (SX>0) 


1930 FOR 1=0 TO 20:KW (I) =1 :NEXT 


1430 RETURN 


1940 RETURN 


1440 ' t*0 ♦>#*! 


1950 DATA 19, 23, 77, FF. 77, 23, 19, 00 


1450 SX=0:SY=0 


1960 DATA 98, C4, EE, FF, EE, C4, 98, 00 


1460 FOR J=1 TO KM 


1970 DATA C0, F0, 7E, 7C, 3C, 3E, 27, 03 


1 470 SX=SX+SGN (KX (I) -KX (J) ) * (KP (J) =2) 


1980 DATA 0,0, 1, 1, 1,0,-1,-1,-1 


1 480 SX=SX+SGN (KX (J) -KX (I) ) * (KP (J) =0) 


1990 DATA 0,-1,-1,0, 1, 1, 1,0,-1 
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sW/ 



7!>*HD 



************* ********* 






Qgmmmta 

flI#frb^/U& PSG(7)PLAY:£ 
*Wm L T*Tb MSX-MUSICHA 

?*- K fc? £ H-5 <7)T\ PSGtt£«& 
fcs *&IBfcA:ft-***<7>*<HlStf) 

&»»& tti ^ tsmtz t£ b & i s 

01 ttmatba 

•MSX-MUSIC©#J8JHb 



5-it;^ £* L T&3£ L T (5 L I vfc 

Q»«play 

MSX-MUSIC^f$-7H(i, St* 
CALL MUSIC^T#J#Hb"r5'# 

fi&ffl Lfcl.*T\ FM^Jl 9 ?■* >* 

fi&ffl L T, FM^;1 6 f- +- >*/!/£ 

4o *ZJ#Ht<7)77>£li N H1 1 <7)-MI 



:0¥l 



CALL MUSICS. 0.1. 1.1. 1.1. 1.1. 1.1) 

CALL MUS1C(1,JU. 1.1. 1.1.1) 
>MSX-MUSIC©M^ 



PLAY #2, "FM#$C^ + y%JH", -. "FM^gif- + v*W 




PLAY #2."FM^^^+y*M", 
-ijX'A^-.-pSG-f-fy^^r. 







£s 1#iC7)$^^E-Fc 2# 
Ittx *MSX-AUDIO"£l^ fe-3 
V t 0(73 MSXffl^ig £ <7>53&14 

3#gi^fi\ *PLAYXf&n£3: 
5U^(7)^+- >*)\,W*&fr L T 

<7>»£tt 1 £4&rr*im*i.\, 

££!»*> -T^M 1 COTfJo 
msx-audio£ oiE&fntztoo W. < 

*CDEFGAB"T-#< («<fr<7)&3 

Atzis&s, ttt*Act*fcv*::fc 

£B& b L T* «fc l o fc£ L * K U 5 
7 7V7->U ¥*lW*CDEF 
GAB'fcJg^tSo 

PLAY #2,"CDE" 
IBMifcffco &( J N *FU~77V7 

yF'CftSoii^FIt 1*? 

? — 7*_h<7>KC«i:So 
PLAY #2,"CDEFGAB>C" 

fett*!^ CC7)PLAY££f5rj£k 

Illegal function call 

*On*T*# <7 ? -7>I£5t L T ^ 
PLAY #2, "04CDEFGAB>C" 

te.mj}iz % *?9-7A(04yt. 

i 'F-Ui77V7'>F-S 

U ^ b v A< 8 M49\ ft^<7) K B 

PLAY #2,"04L8C4DEFGAB 
>C1" 
C (7)^(7) *C4"oT(7)7!)\ *4^& 



— >^o ^(7)tifC7), *L8"oT(7)*\ 

¥- 9 (i, ±S5 8 t>^^1- f S " i: 

l^t><7) ft^(7)*>C1"«, t>-3 

ir-5ft5*\ 

PLAY #2,"T150O4L8C4DE 

FGAB>C1" 
( J U «6<7) *T1 50**< N * 1 t>H [Z 4 
7>^fr «■ 1 50-fHBfe b t ^ L°- F C 

*bi*-tf(ft'J^32)ig<ftSo t^^ 

^n^' /; l-llbLT*-J;To *^^ 

— 7*4<7)K5 Vfc'o 

PLAY #2,"T150O4C4","T 
150O4E4","T150O4G4" 

OMMLotMS? 



MML^Ci % 



•y^-v? 



P • 7>y— ^*<7)B&o PLAY #2, 

(i v #n^>K^b)iI#(^5>L 

1 ^n^ 65535 
#Sn (x >-< P - 7Wt<7)I££ ) 
1 ^n^15 
Z.<7X\<tz'?{ts PSG(7)X>-<P 

-7^1^-r^^c-fjffl-r^o fm 
w&iztt$mt£\.\ 

0^n^15 

•Ln(^^(7)^$C0l§^:) 
1 ^n^64 

S5 7='— ?><7)Ol^Tl^l^%- 
H..ib-t£ #C0 N S5f(7)*&^ n7>^ 

•Qn(£<7>g<*<7)tl]£-) 
1 ^n^8 

bftiJ^-^i07><7) 1 m&T-^^-r 
?> /•z^x.cj's^^^-r^a:, ^ 
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X 
X 



d)Am 



1 =§n^8 

•>(2fr^*-:/£Jb.(fS) 

•<(**?-7VRfs) 
**<b*? ? -7* 8 )*•«*.£*!•& 

(i x 1 llegal function call'X^ — 
£#S 

#Tn(if>*<7)I££) 
32^n^255 
4 #gft£, 1 dflfCfflpI b 

-t^i&^TSo (&£*<*# i.*s 
£ts) 

£, vv N36"(i*04C"a:[SIi; o 
•RnCftW) 

1 ^n^64 
*RTT3:ttfa *R64*T'64#tt 
£Fo n«-f»t5i: % 4 #ttfa(R4) 

c * %„ l tii:£ $ n/cS $ c a 

^<7)g£T*^£R§bTo ate 

•+> #(#^Ji(fS-v + -7 ) 
#-(WFlf*-7-7*y h) 

^#<7>&£«5e:lt, *^_b 
(ffctj, ^^Tiffcyrso tzt 

aJ;rc+ ''(**# F''(ifrSo 
•. (W-jSO 

W£ fc 1 . 5fST -5.0*04." T*# * 
4jHHft *L8C/Ttfr£8##& 
£Bgb-f„ *L4.*fc*?£<,^*g& 

T\ MTS*&"M£?o 
•=x; 

A^-^-^ifrTltSTtSo 

A=150: PLAY #2,"T=A;" 
ttZts x >**■£& A <7)rtg 

(i5o)tzssr*o 

•Xx; 



Listl MMLSKS 

10 CALL MUSICd.^f, 1.1. 1.1. 1.1) 

20 PLAY #2."WWWT150 

V88A15HBI4S4HB8B8S4" 

30 GOTO 20 



1 



fgf 




List2 Wtttefetf 

100 CALL PLAY (0, A) 
1010 IF A THEN PRINT"iyVW^":GOTO 
1000 ELSEPRINTiVV* •/iWa'T-.END 





#^ 


#feg 


## 


£-&£ 





Piano 1 


32 


Piano 3 


1 


Piano 2 


33 


Electric Piano 2 


2 


Violin 


34 


Santool 2 


3 


Flute 1 


35 


Brass 


4 


Clarinet 


36 


Flute 2 


5 


Oboe 


37 


Clavicode 2 


6 


Trumpet 


38 


Clavicode 3 


7 


Pipe Organ 1 


39 


Koto 2 


8 


Xylophone 


40 


Pipe Organ 2 


9 


Organ 


41 


PohdsPLA 


16 


Guitar 


42 


RohdsPRA 


11 


Santool 1 


43 


OrchL 


12 


Electric Piano 1 


44 


OrchR 


13 


Clavicode 1 


45 


Synthesizer Violin 


14 


Harpsicode 1 


46 


Synthesizer Organ 


15 


Harpsicode 2 


47 


Synthesizer Brass 


16 


Vibraphone 


48 


Tube 


17 


Koto 1 


49 


Shamisen 


18 


Taiko 


50 


Magical 


19 


Engine 1 


51 


Huwawa 


20 


UFO 


52 


Wander Flat 


21 


Synthesizer Bell 


53 


Hardrock 


22 


Chime 


54 


Machine 


23 


Synthesizer Bass 


55 


Machine V 


24 


Synthesizer 


56 


Comic 


25 


Synthesizer Percussion 


57 


SE-Comic 


26 


Synthesizer Rhythm 


58 


SE-Laser 


27 


Harm Drum 


59 


SE-Noise 


28 


Cowbell 


60 


SE-Star 1 


29 


Close Hi-hat 


61 


SE-Star 2 


30 


Snare Drum 


62 


Engine 2 


31 


Bass Drum 


63 


Silence 



A$="CDE" : PLAY #2,"XA$;" 

t -f s t s £34EttA$a)rtMM 

#TS 

PLAY #2, A$ 
fcl^##^fcT*#S<7)T\ MML 

Utf^-^^'^IJfflLiTo 

|WW)*V3fc <" fcfc&*& 

*C8&C8*(i*C4* t «Q.VfcU0H L 

tt I ^o «tt£ 4 Mftfrttl'fe 1 > 

*!•$•«, vv c4 . &ci 6*# ^ t m < o 

• O Gift) 



£#g£TSo {CDE}T3iIfrCfc 

So ift»7)£<**-*B£1-s*§£- 

^n^63 

n#<7)^fe(Z-rSo^fe(i^ 1 5: 
#f!S(7)-£o 

0^n=S127 

PSGKti^^o M£ * V " 
T-fSMT S cfc 'J , » < ^t^T* # 
So 127T**, 

* * tf if, S# (ifgfr tt i * (tex. fc 
tttrtfo 



#g\ OT<7)'J XAWfflMMLfc 
*<ZfcCj:»K 'JXA^PlbT 

:w<t^, *g^rs*iflffttx 
7 # g im^y <J*—9 -tz 

• BC^?* F7A) 

• S(^7F7A) 
•M(^A^A) 
#C(v>/\*;U) 
•H(/vf/\? b) 

• ! GMu<7)£2§£ 7- ? -tz > h # 

u^-A(crs) 

0^n^15 



»1'5Jt/f i «tj.L 
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^CD»7)f££) 
0^n^15 

'J*h 1 cotfij £JU:-? 
*CALL MUSIC* £ *PLAY #2**f 
(1T\ FM#K£te? Z £ (JT*# * 

•CALLBGM(n) 

PLAY5:Tv\'-y ??70> KM 

* n "j? o ft <b*ogLtti\ i x-r 

PLAYXTift <b L fcf'— ? ^b,| »J 
Hfr S * T\ BASICl J^lCi! J 4 < 
fc£o *■*■*>*# <b, PLAY£(7)^ 

#CALL PITCH (n) 
410^n^459 
*a2"^<75 j§ jftjft £ & * k> (MM 

(i^;u v y) Q "t^h.— >*Lfci^ 
£#(=«; ::ft£fcfc-5o 

#CALL PLAY(n,x) 

tePLAYlfcCOT. h- 'J >?'#-§-( o T- 
ivf *u!r<7>* h- U >$0, VBII 

m^Ansaas^o 'J x 1 2 a, 

T57°n?*7A 

#CALL STOPM 

a'v^'vOVF T'PLAYX** 

1"3 £>!?##«£ ftSo 
#CALL TEMPER(n) 



#CALL TRANSPOSE(n) 

Zfti izh t X\ * 1 * <7 ? -7_b 

CALL TRANSPOSE (1200) 
•CALL VOICE 

ii*(*MML(7)*@**ftffl-r*o * 




o 



/■c v,^A,#gf# x *— #— K*> 

VV ASDFJKL;"CSJ tj ^T b tlT ^ 

KW-a-fcA^ £**£■«* jelu+ 

-CD_hH$> 5 *■***« t 0;$-S, 
1 * jjf T h Wtf^K < ft o 

ff r * "C<&#*>bsm*<3§ < & * co 

"C>i3fc turbo RCOiSS^E— KT'IJ 

*>^*c^ffl-r %co(i % -j=7 -r 

a ^tmiftZttSl-JbZf—o 

\sa^<r>j-MLmfrh>w&zxik, 
f-<7)Ant-fe^%-^o 



10 DIM P$(7),S(7):A=RND(-TIME) 

20_MUSIC(0,0. 1,1,1,1. 1,1.1,1,1) 

30 FOR 1=0 TO 7-.READ P$(I):NEXT 

40 SCREEN 5: COLOR 15,0,0:CLS 

50 FOR 1=8 TO 15:READ R, G, B : COLOR* ( I, R.G.B): NEXT I 

60 0PEN"GRP:"AS #1 



List3 \ 





110 CLS:_BGM(0):PLAY #2, "V15L4T150" 

120 FOR 1=0 TO 7 

130 FOR J=0 TO 4 

140 LINE(32+I*24, 32+24*J)-(47+I*24, 47+24*J). 1+8. 

150 NEXT J 

160 PSET(37+I*24, 148),0:PRINT#1,MID$("ASDFJKL;", 1+ 

1.1); 

170 PLAY #2.P$(I):S(I)=5 

180 NEXT I 

190 JGM(l) 

200 SC=0:PSET(64. 160). 0:PRINT#1. "SCORE:" ;SC:TM=100 



300 ' My %-T 

310 X=INT(RND(1)*8) 

320 FOR 1=1 TO 100:NEXT I 

330 IF INKEYSO"" GOTO 330 

340 PLAY #2, P$(X) 

350 FOR 1=1 TO TM 

360 A$=INKEY$:IF A$="" GOTO 390 

370 A=INSTR("AaSsDdFfJjKkLl;;".A$):IF A=0 GOTO 390 

380 IF X=INT((A-l)/2) GOTO 500 ELSE 400 

390 NEXT I 

400 * itt'i 

410 PLAY"O1V15T150L2C". "O2V15T150L2C" 

420 S(X)=S(X)-1 

430 IF PLAY(0) GOTO 430 

440 LINE(32+X*24, 128-24*S(X))-(47+X*24, 144-24* 

),0.BF 

450 IF S(X)=0GOTO 600 

460 GOTO 300 

500 • tm 

510 PLAY"O6S0M3000T150L8EC 

520 IF PLAY(0) GOTO 520 

530 TM=TM-1:IF TNK10 THEN TM=10 

540 SC=SC+1:PSET(112, 160),0:PRINT#1,SC; 

550 GOTO 300 

600 ' Y -k l-i\' - 

610 PLAY #2, "o5c<bagfedc 

620LINE(84,94)-(171,115),0,BF 

630 PSET(92, 102). 0:PRINT#1, "GAME OVER"; 

640 IF HS<SC THEN HS=SC 

650 PSET(40. 170), 0:PRINT#1, "HI-SCORE:" ;HS 

660 IF INKEY$="" GOTO 660 

670 A$=INPUT$(1) 

680 _ST0PM:G0T0 100 

1000 ' W/Y 7-9 

1010 DATA O480C,O4«1D.O4«2E.O483F,O4@5G,O486A.O488 

B.05il2C 

1100 ' n'wh f-j 

1110 DATA 3,3,3,0,0.7,7,0,0,7,0,7 

1120 DATA 0,7. 0.0, 7, 7, 7, 7, 0,7, 7, 7 
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X 
X 



©AS 





#n-5 iscf^o^o "Cfex ft 

ABBOT'S 7 ~r^ [qlffl^CDP 
#o£©Bx P°W?l!L#^£t* 



7L/3L/ 



© 1 £g©*i&s*7t*£M"2i:)-£ 
ewe,. ii^7u«ufe©o 

@/\:7©&l,v&©(3©o HISCK 

iv7tK7^#aD<03;U£o 

i¥JI!f{|ffiJg:$#i£<*MZfcj&, N 



10 DEFINT A-Z:DEFFNB(Y)=SGN(E AND 2~Y) 

20 FOR A=0 TO 9 

3J3T READ B,C:T(A)=B*60+C 

40 NEXT A 

50 D=32767 

6jaT FOR E=j3T TO &B1111111111 

70 F(j3r)=0:F(l)=0 

8J3T FOR G=0 TO 9 

9J0T H=FNB(G):F(H)=F(H)+T(G) 

10 NEXT G 

110 K=ABS(F(0)-F(1)):IF K>D THEN 170 

120 FOR 1=0 TO 1:PRINT CHR$(65+L) ;"/>:"; 

130 FOR M=0 TO 9 

140 IF FNB(M)=L THEN PRINT CHR$(65+M); 

150 NEXT M:PRINT:NEXT L 

L60 PRINT K¥60;"7/ , ;K MOD 60;"k' 3 -) / f:PRINT:D=K 

170 NEXT E:END 



180 DATA 7, 35 
190 DATA 7. 30 
200 DATA 7, 20 
210 DATA 7, 10 
220 DATA 5, 55 
230 DATA 5,05 
240 DATA 4, 40 
250 DATA 4, 20 
260 DATA 3, 55 
270 DATA 3.00 



A ******************* 
B Ml 

C Vf u9' iU\JVf V 
D ttaWWWy/f-ft. 

e \nw¥*tf' Wtf 

f in. 

G E=&B0000000000 
H ^>JIHGFEDCBA 
I 0:A/y 1:B/V 
j ******************* 




-5#5x ^u^izututo, s 
u.frizw&isivoyyu'j^L.te, 
7^-^mz\z, m,\uz>tz-Dis. 

ivm-y&a o §^is N ot© 

&z>\zn<o^o 

Sidel 

a imm 
c i mm 

F 5£05f3> 

H 4»20K!> 

I 3£55?J> 

£§f 28^15PJ> 
Side2 

B 7»30fJ> 

D 7£10?J> 

E 5£55?J> 

G 4 £40® 

J 3 £00*9) 

fitf 28£15?J> 

SI, ^©PdUo 

4 ^©^©H^+^-S: 

vfcDBgiysm^AnTrscizuTix 
§t-«e££ioiz<r52&/£*o£ 
z\£.tttez>ttU9 wmizm-Diz 
tfstsi^ wmzm\,\-z&z>4 / j 

£C£oX\ £££;£ (US : -tr 
fvUVs &U&U ! )o 

1+2+3+4 
V W8"&S, 

5+6+7-8 
TM0#fEnS£U-5^ o t-zs 
#s U 0001"©<£^>IZ, IK5I^ 
Ulfes *gMIZ10#fm&U» 

^CCSSo 0000~99993:"C© 

cpiz N lotffm&ufeffiisuo 



$5#? c©g£BASiC"c:a< 

5#*IZ. Z©»(Z«, US 
U3£D-7j;WU-JU#3d£c£o 
*ftt£> ^0ISlMT©S^nO^ 

©+-x^©§b^©^ n ®si~c^ 
©tt-niSx -^©^tiqoisr 

@aio©^?©^[z - £ttcrc x 
mffl^iz^szt&rs-So 

© 2 om±)li^^-5^?^^ct& 
t\ 2tfrl^±©$£UT$!^Z 
tl;TC£&U £<t;ttf1111£ 
11-1 X 1 t^fflOTqlo 

^nc^^xfc^Ai^ x-f 
^iz-tz-^brOTcasr^ 

rioII3 »fflB11^20B (^ 
BOTi^ofSSS 1 E 8 B^to 
©M^#2J^~CItS:U^o tK 

9 #£!»?£«§ jregAuT\ ^ms 

sistTV^^^UDrazs 
^^©^vtz-^&^aM 



a^-c^c 



= 1 07-24 
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MSX turbo R 



tmm 



MSX turbo R0H23££Ur, )\-tV-vQ1}*&m 
*tlfc r FS-AlGTjo MMtyCOlVCtt, ^H^-y 

*^»fiMr&a»BASIC«* MttlUfo 

>fc{I N MSX<7V\*— va><7*iS^ 



: S-A1GTCD 

x T Efttt&f 5 7 7 h x Z(i N 

3 #«#**„ MSXTIi, *(75fc 
*!>£ x H1 <7)*ID/\*-T r- **<£*<* 

7tfHHK£J.v?& ^-<(7)MSX 

A < Ban$nT#fco *l -castas 

It, y-f >ROM<7)2BH#±fe£2CH 



£ 1^-5 <7)ti2DH»ife{Z#A^tlTl^ 
*o 411118^ ftfcAIGTKfcl^T 
(£, MSX turbo R£jjrf 3 *<#2rn 

Om<»MSXlzWtZs A1GT(7)S 
^SSgitfcVyDfcfe, MIDI&F*3 
/&Lfc:i£o -<7)F*g/gMIDI(7)^1a 
(i, 2EH#ife(7)t:-y h OCftMl 
*££'&$*£% fc£U 2EH# 
ife<75^ 'J (7) e -y h (75fi|tZ HR£&( 

li*£3ft3 *:i"C\ .rtJftMIDI(7) 

LD A, (2EH) 

AND A 

JP Z, NOMIDI 

-mm < v 



LD 
AND 



A, (2EH) 
1 




y-f>ROM©IDA-<S 



M 


H& 




2BH 




2CH 


2DH 


: MSXi, 1 : MSX 2 x 2 : MSX 2+ x 3 : MSX turbo R 


2EH 


bit 0;&U &ibtt'MIDIfijp£ 



jUPtmfcl/O/K-h-* 



pn 


#tt 


Read 


Write 


nm 


EOH (E8H) 


8251 gff 7"'-* 


8251 j£fi r— * 


E1H (E9H) 


8251 xt-? X 


8251 a -v y K 


E2H 


mm 


ftft tf MIDI 0#Jfc$J t) ^3. 


rtJS 


E8H 


8251 S: If r-^ 


8251i£<t7-'-* 


E9H 


8251 XT-? * 


8251 ^-vvV 


EAH 


M® 


8253 OUT2 7 s» f- 


EBH 


ECH 


8253 * * v * - 


EDH 


8253 A » x * - 1 


EEH 


8253 * * V 9 - 2 


EFH 


SK#J 


8253 a •» X K ■ 


ftflttMIDItt, E2H#Jfc©bit7K:0£»t&tr£i ? r<'J3*K 1* 

*W»1MIDI«\ E2H#ij&<7)bit0IC0£Sfi* : **L5£, ft/ltMIDI 
fcRCI/OfMltffiS. 1 £##;&4*v5i, 8251 # EOH #ifc £ E1H 
#*&&GEi^ 8253 #«JD fli3*tS. fcHttRflg-C tt, I^ft2>in-C 

EBH #ifckt EAH #i&<9 4 > ~ ■>*-?* 5 „ 



t:ft*\ «&9 7j9800R[&SiJ]T-Sg§t4>tf>> '<tV- -y^^FS^AIGTiWaiaiAf. 



JP Z, NOMIDI 

(7) J: •? \Z S t'-y h jM&Mfcitiftr 

MIDIA<SHifcS ti-5 I/O*- h (J 
R2(7)£fcUo E0H#ife^'bEFH 

£j!S£* BlT a rfr<b^rttz£5B# 
^■^^nTl^^-PACKj^J: -5 
tt, *M«flt<7)MIDI* — K U «y v 
(i % MIDI£F»g/&L&^MSX(l&M 
LT^ftrt/tMIDI i: [II U I/O*— 
r-fclsHAN MIDI £rtJfcT5 MSX 
«$rcl-T2£g<7)MIDI£ LX 

tlTl^J:-7f:o fcfc\ MIDI<7#r 

0>x\ z.zxi,twk fflmtikn 

MIDICtts *825Ti: "8253" i: I ^ 
a 2ffi5<7)LSI* < «*3nTV.^S 
Ztl(*x RS-232C-T>^-7x- 



7^<Daa 



#ift 


rt^' 


FF75H 


MIDI IN f I 5 iA^ 


FF93H 


8253 9 A -^-SUDia* 



^Cfc^^>tlTl^LSI — MflU 
C, MlDI<7)y\— K^i^fltfigirlf 
■§-£l^"9(7)ttx RS-232ClZct<^ 

MIDItZ(iA7J/1?-hfc$)'Js ^ 

BStix S^320v-r^p# o $fe 
MIDI<7)ftlJffll{Z(iiE«S'i^-r 5 >? 

x.T % 200^7)lS>zr£(7)^-rv 
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• <-5^ h 



T?-*;i/-7m2/x 



Ltz^tz^XDy y ? FF75H#±fe 
t FF93H#±-fe'2, «l£ BASICS 
> ? — 7° U ? — <D$&tfr h P — JU 

i&^tztbl}\ MiDlffl(zlGE$nfc 

iofcfo fcfc'U *r#lt<7)MIDI* 
-HJ-yvli. St3<7)7-yv-T*'i 
ft < , FD9AH#ife<7) vv H.KEYI*£-f£ 

Z tlfr h MSXT'MIDI £*&*> 7 
tUzt^[Z, >£rf3'J^r*& 
5<7)'i, rtJftMIDIfc^M-t-ttMIDI* 

m&&*?s RS-232C#J'J&#tZ 

<tZ x D0S<7)7°Py-*7AT*MIDl£ 

pE'J-ffll 

A1GTIZ(J % fl£3fe1»|I<7)A1ST£ 

it^-Xs ^4<7)d;o(z v >ffiiu"(z 

£ < (75^ ^ U -*r3*»o£ tt& Z t 

(zflRus^feLnti^ttn^ 2 



l*£fc*o ;<f >RAM(i"f£<7)512 
*P/\*-f K R0MC2fa£ 2032* P 
/<-ff*i Z(7)ROM^«i, MS- 
DOS$-F*9S£LTt^16t:*>y K/ty 
P><7), *PC T 286note*-£>*FM-R 
card* (z fc EflSfrt 5 t> (&*<* 3 

£Z?>X\ A1GT<7X±*»#lz#*r 
tlTl^ROMg:Ji(7)-&ttli x StlZ 
fc*>5«fc*?*Z2032*n/\*< ho £ 
r'iM, H^tz/x-K^xZ^-^ 
JBLTffl^T***:* 2048+ P/\* 
-f hc^ROM^A^Tl^o ^(7)M 
<7)16*P;\*f Hi, •f±«#c7)^U 

Yirfati-tfXiX^Ztoir ^ 

^T*&3 JSf/fL/cAfrVfcb, 
TfOtbM ■mwm&ZX'tcnte 

A1 GKZiiip $ *lfc ROM<7)— gf$ 
(Z'i x H^s§MSX-DOS2c7)v'^7 i 
A<7)— g[$£ N MSXView*«iej|$n 
Tl^o *LT, Ztl»b<7)ROM(i. 
3t 5 (Z^ L tz X 1 IZ % *ROMt*< * 
**fc.LT K^'f7*ClzSlJU^T 
f>n ; 5:i:i:4^f:o z<7)ROMt* 
-r**fci^<7)(i % ##&*;::£ 

Z^T'#&^fcC7)<7\ 77-fH 



^1 STctGTCD^ED-tt'R 



iTc^WLfc'J^o/czt'i, ii 
■t^x-f-T.^ K 5 -f Vine J: 3 

izxzzmwbtotz'o 

& tz, MSX-JB7)3$*3Sgffl(7)16 
+ n/\*-T h&<7)*Vfc> SI »J (7)16 
+ P/\*-r r-<7)SRAM'J, M**y^-U 
-A>y ^ T 7 -y 7°£ *lfc*SRAMT* 

ixftLX.D K7f7'tziiJU 
^T>bft5 Zft'2 N MSXViewc7) 
*flWl££c7M£#& £'(Zf£bft5 Z 
£lZfcS fcfcfU Z<7)ROMT*-f 
*?£SRAM7*-f *?'*, A1GT;£ 
tt<7) *rt» V 7 r- *7J 'J.ff /L *<* 
^**<ON(7)lt^-tZ<7)*.^!lffo 

MSXView'zBUiSL £496* □ /* 
-f h<7)ROM(7)^(Z(i N JIS|gl7K* 

<nfrtz'i-ttiz* \2xnfvhtn 

x 8 K«y h(7)Jl^ROM*^inT 
■.**„ ZftibcTtfgUTJlZ-^T'i, 

tt*£##^£ftL£i\ M7tf 

SSS&Wfcs A1GT(7)v^^A« 
^^^,Tl^Toi\moTLS-)<7) 

its #-ofr<>ZZ£X*&Z*£bs 

~D I % X* tz ±^>(D RAM ?: / \* -y t- U 
-A' 7 ^777°LT, «i5<7)y- 
hM^°VP><7)cl:-)lz N «ig%-S) 
^T fc^TT+<7)7°P ^*v A^-S^ 



T'$S, VvzL-A^tr'^tlt 

"CSLt^t^t^. Xhs to 
-Tits MSX*^C7)fffi^*<2073R 

aU9lY5§:U(l?) 

A1GTT'#MW^\ ROMt'^^ 
^, SRAMx^T.^, MSXViewi: 

L<fl*fLT*«t-5„ 
$.t. ffi£^r>XbROM7*<(X 

9o>WntzM\*s RAM-r-V^^i: 
iwiatz T 5 -tz ^ ^ t°- K ^S$l ^ z 

to tLXs 7P 7t'-f^ 7.^ 

£t>^ i^ffl,«-r^ct'j, $<n 

mT-^?)Zi:fc- 
Z(7)ie»^#<t#lz##izL 

tzwrnxit, romt'^^^izii] 



>*5 -o| 



>^y RAM 



tf-f* RAM 



SRAM* 



?^ BASIC 



MSX-DOS2, Disk BASIC 



16 b'y vmis B 2M$W£ 



MSX-MUSIC *S5fi BASIC 



>-*-^-7"-> 3 yy7 h 



MSXView* 



ROM^tt 



FS-A1ST 



256KB 



128KB 



16KB 



80KB 



64KB 



256KB 



16KB 



512KB 



608KB 



1536KB 



FS-A1GT 



512KB 



128KB 



32KB 



80KB 



64KB 



256KB 



16KB 



512KB 



608KB 



496KB 



2032KB 



* SRAM © 16KB ki.$m<o¥W&£&K^ iI»DO 16KB 
fi "SRAMr^ x^"' K&frtM . 

* MSXView <7) ROMlctt, MSXView #&, MSX- 
DOS2 <D >s x r A co — 1» % PageBOOK, ANK 7 * y 

h, 12 Ky h ^ 1 TK^gl^ 7 * y F^4H5. 




K^vty=g 


f^-§ 


A: 


7P? fc?— f 4 7.9 


B: 


2 K 7 -^ 7' •> 5 =■ Is — •> 3 V 


C: 


ROM y" ^ x 7 


D: 


SRAM r -f x 7 


H: 


RAMf-f 7^7 


Ky-f^C:, D: N ..-IC**), ROMf^f 
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1 (D d: 1 £ 7 r-f JUtf "a £ tlT I * 
fc ZZT-(i513+P/\'-r hfcSfe-3 
T I * -5 A\ SS&Ttt "7 - K 7°P -b 
•y 1f-<7) V 7 h ft tf^Ao T, **J 
900+P'N"^ h(7)R0MT-'-r 7^<7) 

1ih fro 

7 74 JK7)-i££ Jt-fttffrfr-S 
J:-?tz N ROMx-r^^HliDOSZ 

(D^T.t-I^CD— Bils MSXViewfr' 
AoTl^o totzisb, AlGTcom 
»£A*l*£t"<*lZ % v*^Ax 
-Y * ? ft L T'MSXViewA^KiT 

/;#>C0MMAND2.C0M£ MSXView 
ffl<7)7r-f./K7)— SB£\ RAMr-'-r 
*?>.zm&LXfen~tfr&frr> 
tzfr, AIGTT-tiROM-r'-f *?l%7) 

tzisb, tiM&HS^tWH?* af 

AttttCtt, v^-^AtiROMx-f 

57 t -OK J RAM -r-f 7.? fco 
a <a A\ SSWfc K 5-f 7"<7tf£i " 

—75, ROMTV*?<7>S§J3ff(MI 
# &*. "o ftfc V. * C £ fc* A\ SRAM 

(7)#a(i16+P/\*-r hT\ v->> 

fcjgi&Lfcit&izij, mi(7)2# 
?n^>o iff*/f§«c^SA<ft 

SJ^fcflrC* D0S<7)/\*-v? 1 7 7' 
-T;u^ MSXViewff>B|8*IS^7 r 

#fc\ SRAMx-f *?tt, Z Z 2 
JUT. (SEi¥<7)7°P ? =7 A fc^f 

s> 7° p y ^ a ) •<&&&£. $ n^t 

\.\ X68000i:i^«BrC(4, Hlgt 
tZSRAM(7)|*]#£#£^;i <bft N 

v^xAA^tdT^^ < Kzmh 
h^-iz ^-A/jr-p-oi/^izafrrs 

^KStfcx A1GTlz(iffl«3<ifc 
i*>r- 7°*-£*?L&#'bVv 
>^Ut7ht5^ SRAMt-V 



tjl*.\ MSXViewA^x-f U? 
D:¥;C:¥VIEW 

ROMr-'-f T^SRAMt'-T *^\ 

^■LTRAMx-r 7.?ft£\ K7«f 



MMIDISI 

■iet)iffcMiDii:ti^-5i^/it) 
<7>rfr? ft^-ASittftlS^ tg 

E^Tl£^£ftT^S<7)T'^B&-t 
•5o ■a-<ti"\'V/\(7)MSX(MSX1) 
T'tt C i » J % PC-9801 ^ v -y * > 



LfcMIDfa& tt$U$?»JlZMSXlZ 

ZC7)MIDI£, Vv>fg7°P^* ; 7 

Um*tftZ,>:£&5<7)T\ %B^r 
tMlzi£Z> ^/3ttMIDIffl(zH£3ft 
£ ft/c BASICS 37>F ?r<S^- L 

Tivz;-3o tkf&tmittofrh 
FM&MM (Diitm BASIC t *ii iz 



iff fcROM/SRAMxV 

7<?<jjfomtm.wm 

A1GT (D ROM T"* -f 7s 7 CDrt § 

K?4 7*C:0*!i ^--A^fi ROM disk 
f^^M C:¥ 



HSXD0S2.SYS 


4870 


C0MM1ND2.COM 


15708 


AUTOEXEC.BAT 


289 


REB00T.BAT 


458 


¥7IEW 




MSXVIEW. MV 


89857 


VSHELL.)VS 


45086 


ICOIEXT.VS 


625 


ICOIPAT.TS 


1260 


GAIJI.MV 


5952 


¥TIEWFBIH 




PAGEVIEW.)B0 


20571 


¥VIE¥¥DA 




•>^rAi$.Di 2726 


/l/y^.Dl 


3031 


iSSISS.DA 


2299 


n^^fit.DA 


13890 


MMg^t.DA 


1599 


mMglJI^.DA 


1557 


¥VIEH¥0VL 




DOSMEIO.MV 


6026 


FILEPACK.MV 


7012 


FILEMEIU.MT 


763 


F0HTMEHO.MV 


1888 


FORMAT. MV 


8618 


SETICOH.MV 


2289 


RGB.OVL 


1723 


¥VIEW¥F0IT 




KEV70RK. !HB 


12800 


HEWYORK. !HJ 


28160 


EUROPE. !FB 


12800 


EUROPE. !FJ 


28160 


■ASA.IGB 


12800 


IASA.IGJ 


28160 


wtils 




VIEW.COM 


1488 


[^1^7 l-.COM 


45 


VIEWSYS.COM 


503 




¥H0ME 

ftMV 7 h .HZS 9 

BASIC. BAS 

AUTODEMO.))) 5096 

359K /M V ^lf 35 7 7'f ^-Cffiffl* 

513K^M h^fljfflplfig 






A1GT CD SRAM x H 7L 700rt# 

K5>f 7'D:Or-f x*Ktt#0 »-Aig^* * 
t£^7^ u^ h J D:¥ 



VIEWSYS.MV 1 

PREF.MV 512 

513 '<A hg&1 77'f^'C 
14K^M h^ffifflnjfig 



AlGT©^^^IJC<D^^fil 

PATH=; C:¥UTILS; C:¥; A:¥UTILS 

PR0MPT=0H 

TEMP=H:¥TEMP 

CLIP=A:¥H0ME¥CLIP 

H0ME=C:¥H0ME 

VIEWFOHT=C : ¥VIEW¥F0»T ; A : ¥VIEW¥F0HT 

VIEW0VL=C : ¥VIEW¥0VL; A :¥VIEW¥0VL 

VIEWPD=D : ¥; A : ¥VIEW¥PD 

VIEWDA=; C :¥VIEW¥DA ;A :¥VIEW¥DA 

VIEWBIH= ; C : ¥VIEW¥BIN ; A : ¥VIEW¥BIH 

VIEWDATA=D : ¥ ; C : ¥VIEW 

VIEW=C:¥VIEW 

SHELL=C : ¥C0MMAND2 . COM 

SRAMD=D: 

REDIR=0» 

UPPER=0FF 

ECH0=OFF 

TIME=12 

DATE=yy-nm-dd 

KHELP=C:¥KHELP 

HELP=C:¥HELP 
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t?-*ji/-7-j-us/;* 



&t^ ? Ho 

£1\ 'jXAf^lt, FM^ 
igi<7>?- $ >*JUOflJ 'J ^T £>£#) 
£fc«><7>*^a<*CALL MUSICS 

FM^JfT12«£*&'.)lZ N UXA 

^ + 6 ^mg * m&fizm % -tt s ^ 

C7£:l7ft£\ MIDIT12 y XA^+ 
8&^£T<flJ§'b-ttSJ:^Z s t£ 
31£ftTl^ 

>imLT(5L^(7)(i, Z(7)£# 
(Z807/\'-f h(7)7- ^x'JTSr?! 
f£f & fc*\ *CLEAR" £ [sj*S<7>& 

TLJl\ *DEFINT"& £<n&WL 

£ tz, *F0R~NEXT";U-7°C0tt 
M£s *RETURN*lZj:&JiU$fcft 
£T £151*1" * * V 7 h -5 x T 7, 5 

tzsb, y-yji/— j->*?)\s— 7°c7)i*i 

g|5T'*CALL MUSIC" £-f£oT[2^ 
*CALL MUSIC*£^Tf&£#(is 

r t*(z 9 - <? x u m^m^* nx 

2WCALL MDR*^l£ % MIDI 
ti^ 4| jXAfffl h^-y^" 
£flilJffl)TSfc«><7>fc<7)„ fcfcTU 
VvXZ&fTf -SMIDI^i 
®(Z «t o T s fel ^A W«C o T < 



£#F.SLT(5lA\, 

^rtb-r^# Cttx vV PLAY*^£f$ 

J£3g$*lfcZ:£(J, **T13fi<7> 
M M Ut39U £*|T£T* # 3 Z £ * 

LT^6 (z *£«>£«£ ?(z x mml 
UWm3kZfttzZ£K 

PLAY #1 
TMIDI£\ 

PLAY #2 

z.£(z#5 

&3S3 ftfc MMLli-g-fH Ml, 

&MIDI#- Mztfi^TSx *s-? 
fc £ # <DZx\"izh *>„ gf L < % 

5E$nfcMiDisS5gT-(i, «an*^s 

X.T X UTOMMLfcltTliT^T 

(7)#$££>§fflT'#fcuz: £ fe&-g> 




CALL MUSIC 

ffi MSX-MUSIC •> x r a i%iM4ti- 5 . 

CALL MUSIC 

CALL MUSIC (<*- F>, [, <PLAY A'gS 1 1& 

m^<o f- + v * *-&> , . . . [ , <play xis 9 :£^ik 

fcfoftMFM^Mt MIDI -I y#«7at— *o^— K 



a^ 



*-"K 


y x'a 


H;^-^*^ 


FM 


MIDI 





*L 


9 


9 


l 


h o 


6f+i y xa 


8#+l JJXA 



<PLAYXoX^IKOf--v v*;Hft>tt, %%<r> MSX- 
MUSIC « BASIC t mm fc , PLAY #<D;$:^lJ £ FM 

ntms iconic*! lx <D j*^ ozmfcx-zz (m&m). 
^mmfaoztDttLvm&BAcic^t play ion 

f?lc5fcfc*o-C x CALL MUSIC ^^-C'W^^^^b-tS 
MIDI^-^v^^W:, CALL MUSIC %!%<Dm7ZKffl 

m&<, mij&m*bM£ i s 2... 9 tmv^xbH 

h fe £ U MML O "«Hn" 1%TJ-e MIDI f- a- v * /U6D 

CALL MUSIC %%*m?ri- 5i, fj ^^MS^'ii 

HOIC CALL MUSIC ^^^HfT* it* £ t fc x 807 
*9 y?1&tlMk-Z*ii>o t<Dtcfr s CALLKANJI^ 

CALL MUSIC 
'<? *-*~&1i.\n CALL MUSIC ^^fcMt-Ctt, 

call music(i,o, l.i.i) tmtm^-^n^. 

CALL MUSIC(1, 0,1, 1,1, 1,1, 1,0,0) 



f- -v y £ a- 


PLAY#1 c7)^-g- 


PLAY#2 0#^" 


1~6 


MIDI 


FM 


7~8 


MIDI 


Sfttg 


9 


MIDI <D ]) X A 


FMcoy x'A 


10~12 


PSG 


PSG 
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fcfc\ AIGTlzttMIDITJ]*— h 

j&\ MIDIA*^*fl^"t%fc«)<7)J£ 
3SBASIG£%t Sffl;t £ ftT I *fc I \, 
MIDIAMisHfctfXZtix v->> 
=g7°P ^7 AT*J U i^* t #- h 

SlftW(-(ix MIDItf-hA^SU 
fcff-^-T'FM^ig %-lS & U A1 GT 
£MIDl£fff£LT^Zt feliT 

ST, A1GT<7)g&agB#£JlTV 
< fc##l-«fc < *C*.fc ^»t £ (7) 

A'L^^fcS, i^^b T 

Pwl#g<7)##(i£fttf4\ <fcx.x« 

UT<fr/zU 

t°-x -r 70 Y^>-< -fcnmz X r> 

T N ROMr'-f^tSRAMr'-f * 
<7) K 7 -f 7*£<7>£iJ »J M|T«;b 



CALL MDR 



3 <7) (i^gfc'o A1 GT*1*T^ffl T 

$«&& *ft***i(\ DTAs 

t> <7)*<, 7 P -y h Cl« F7^7 
£^LfcB$,£T\ E, FCSGfc 
oTLJi RAMxV*?^ t- 
ti h? H K5-f 7TI) 5 £ -5 C, 
ROMfW 7 ? fc SRAMx-f 70 (D 

(cjSi;fci9B6m%-i^-r s c £ 

T\ Z (7)P«T® «r(nl®T'# § «t 1 tz 
3ft£ % MIDI£$y$rf?>fc«><7>J£ 
3SBIOSA^«fl^<7)Tx MIDI*— h U 

M^S^XS^Jq^H^So ^<7)75 

^ JUS9K= 7°p 0*? AffiNMft L 

i^IOo LfrU CPU(7)flJU 

*MSX-SERIAL232*T*fi&ffi LTl* 
fe«J:?&\ DMA<7)«ftg|^MIDItZt» 
*l*&A,T*(5La^fco 

- h *— #- K<tf5Jl$±£8?oT 



W 



£j£ 




9 XAfUJMML 4 MIDI / - f#^0»l (9 ^t£it 

CALL MDR«'B' O MIDI / - h##>, <'S' © MIDI 
> - bf£^>, <'M' (7) MIDI / - Mt^>, <'C <F> 
MIDI / - h #^> , <'H' O MIDI J - Y ##>) 

») *a#FBMML<Z>«B\ 'S\ 'M\ «C\ 'H'f&^Kffl 
D^-C5 MIDI7- h#^fc, Q~U7 (Dmx-ftifci' Z 

K19 ^A^fH^-trS "y XAfffl Y7-y ? n tgm# 
!)X - Af©#|5^tft, MIDlKogtSfcio-Cg 

So &Jfli-5Mroi«88©SfciPl**:#!*ot£ 

CALL MDR(35, 38, 45, 49, 42) 



151A^*\ ^tlHZRAMT-'-i 70 

1 &&A*0)M&'& ft Sfca ^ 



7 -f 7'^rt/tL/z^ < 7°(7)V v > 



PLAY 



f;-t 



S- 



..,<^^^IJ3>] 
..,<^C^^J13>] 




MML ^ft'o-C-^'^^?!^ 

PLAY <^C^IJl> [,..., 

PLAY #0,<^t^9IJl>[,. 

PLAY #l,<i^9Jll>[,. 

PLAY *2,<3t^\l>l,. 

PLAY #3,<X^01>[,. 

"#0' . . . "#3" Id , *— V%ft5gU ^H8*t 5 4 * - K 

*- K^ ®J§£-K:W: V PSG ©*-^»* x *A 3 IB 
CO MML #^IJ *4S5g-C t 6 o 

*- K^lco^-g-Kfl, PSG 4 MIDI 4 v*-7x- 
^*s»t v CALL MUSIC l&3"e^£ H^X^^J©^ 

<MIDIi >,..., <MD3I n > , <MIDI P x'A> , 
<PSG! >,..., <PSG 3 > 

*- K^2t^f±3<^#-&Klfi, MIDM y^-7x- 
x oft*? D K x FM Wzi^f J < o 

CALL MUSIC ^%X\ !) XA-tfc&tofcv*-*- K* 
IS^UA:#-&»CW: % PLAY^^-C\ 9 x'A^co^^^lJ^ 

iB®-ot:f, :fc^fl©SttS*;i2fia*-c. co^^-ic 

*- K2 4*- F 30filtgttPIU. 
PLAY "CD", "EF", "GA" 

PLAY #2, "C", "E", "G", "<C", "<E' 
"«C", "«E", "«G", "S", "C", "E 1 

FM^iS-t?9ftfi^*7l'*?AotS:»l^L, $b 
K, PSG -e 3 WW t 1 !!^^-. 

PLAY #2, "C", "E", "G", "<C", "<E", "<G" , 
"«C", "«E", "«G", "E", "G" 

FM#^-C9ffl^^ n .lb t, $ fefc. PSG-t'SftFtfc 
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t?-*;i/-7-*-'»x 



fj v RAM^SSr 1 jttfiT-iWT 
(5 "5 *T*5f H W£> 3 fc 5 -5 A\, 

WMtftiiX < *<7)fc % AIGTA*** 



<zttzbi a 




mm, 



EStlfeMMLH 



m^m mml coiijn 



«Hn 



OCm.n 



OSn 



Ln 



Rn 



iBSn 



Vn 



«Vn 



fln 



Zn 



fln 



CAn 



1 < n < 16 



1 < m,n< 127 



n = 



n = l 



n = 2 



MIDI f- -v v *^#^ % S5Ef- h 






MIDI n^^A^n'^ **&5g"t 5 . 



FCH (STOP) ££B?J L % * □ y * tB^j 



FAH (START) * tH ;& U tvytWl 

fclWfr**. 



FBH (CONTINUE) £tt!7j U * D ? * 



^ts^fflMMLO^ 



1 < n < 127 



1 < n < 127 



1 < n < 127 



< n < 15 



< n < 127 



< n < 127 



< n < 63 



#><b 127KliMl/c 



n ©f ^1^ 64 



frb 127Ki#*./c 



n c7)]tAfil^ 64 



OS^ffi*S64^b 127 tci%Z_fc 



MIDI ft *f ft ft N 8n£/- h;*-y •-< 



MIDI fc*ttXtt v #il *-A (=»x h 

p-Afiy>'#7) ?rtti^-r5o FM# 



MIDIfc^tL-CW:, /nr?Aft^ 



fm vastest t-ctt % ^-fefrgg-rs 



< n < 255 l'-M H^MIDIt-* £ffi7Jf-5 



jJXA^^MML^ilJ 



< n < 127 



MIDIfC>PtL-r7"Dr7 Aft yy*£tfy 



•J XA^^MMLO^M 



< n < 15 



MIDI K*f L"Cf±, Vn i|s|«ic % -<n 
•>r 4-5:^^1- 5 FM^^fcMtt: 

t5. 




MSX turbo R7^7-^b-A>K>^ 



to/u&Sia-:*— Part.2 



/\>F7'7^(7) *z*s!>A# $ ^"x 

K 7-f/t— j6$W 7 *y y" "(ZM L 
T, msx05114<7)&f'J>i;£A,j!ri?>, 
(5 Ax7) 7 "j <7 btfihtlX \.*&£\.\ 
l Zifflfc * Wc tz # £ L fc HH 

*v$:imLxm^tztz.h, m 

mz s fcfriz 4 Wi7v ?*)*{£*> 
tiT^ZZ£ti9imx-£ £ Ltz a 



TizmLitzmv&iiz, mm 

JELfz^t^X^ito 

iMmtKvzLiz, m±mi&iz 

&A,X^Z>X&?>1, H#*< 
11^300 m2ffilj%ft 

fc 4-^ -§-T'fc^ U L tztnEtiSffilt 
Mr>xt$i)£ -T<nx\ z-vm < tz 



I^KtMA-ftM^?^ 



FD9FH 



FDA4H 



FDA9H 



FDAEH 



FDB3H 



FDB8H 



FDBDH 



FDC2H 



FDDBH 



FDE5H 



FF84H 



FFB6H 



FFCOH 



FFCAH 



£mj 



H.TIMI 



H.CHPU 



H.DSPC 



H.ERAC 



H.DSPF 



H.ERAF 



H.TOTE 



H.CHGE 



H.PINL 



H.INLI 



H.WIDT 



H.LPTO 



H.SCRE 



FCALL 



*/f^-*l]D&** 



m 



l^^^^TK-tS 



tl — V ^ i £'$k.7F,-f *> 



*-y^*ffizt--?z 



77 y?*>3 V^-Z^-fZ, 



7 7-V9 f s-a VSr-Ol^-k'tih^-fb 



t** \*- Kfc«t)#iLS 



*-**-K^(b ltt*Mts 



BASIC o^r>f ^-^lfr*^tr 



lff*^tr 



BASIC <0 WIDTH ^©H* 



7'y v&-K i^^^*< 



BASIC CO SCREEN fa&omm* 



$M BIOS* 
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MSX^n^vHsa™ 







use (7) p — ■)-— c r_ 7 -> >m 

T'T-< 7 <7 T <P -tZ 7 £ L tz I Vt"C 

-r *< j £ i- \3 ft PpI*^ < si fc nx 

MSX-D0S<7»77 L AP-;UZ 
(S N FCB(7 7"Ol'P> hP— -lU?' 

?7v*-tz7tU7 fe<7)*<*U S1" 

zftii, m-K-tKX^gaiz 

/X-f b^X^IX^ 7>"tz7 
-f-SUP- K*§-fcffiit^^T* 

# 5 1 i ^ «*Utt fc <nr\ * fcx 
■r 7 ? tf^T-*— * %■ 7 t -r ju£ r* 

£L£To U7h£JtX<f:f;?l\, 
©S1**BJCFCB%- x-mtbx^ 

t ?ti\ z nit #> * u % i *#•£ 

(2)BDOSlZ0005H^tlJ'J ^XS-fo 

z n « msx - Dos<7>*-g-r*x 
BASic_h^«b p-;u-f**ft &(i 

0F37DHfcfi&fflLX<*f3l.\, 
(DFCBt Lry*y-4»K:37'<-f 

h^M^5tf*LSTo ZtUt 
£'z:(zKgLXfc*ri:i^-tzX 
£\ 77<Ji/P- K<7)£#(z£ 



?izxizr>^xmML£Tfi\ It 
U>w<tjWtt#t:Lr^ Zl^o 

i^m^^xi^x < tz$ i\ 

ttoX FCBAWir L £ 1 d: -5 
#j*jjff(j£(tr<fcf£i.\, 

©FCB(7)+ 1 A^ + 11i:77<^ 
^^rlx^LSTo Ztit'y^f 
A P — ;U(7)Z7 t -f ;U7)*— 7°> 

WvStfc&OTFCO&ipfiltA^ 

®77>^>a >0FH Wt/ffl L 
T7 7-f^^-7°>LSto 

©#-•/> 3 *lfcFCB£*KfcC, 
7T-f^%>' J E , J— ±CP— K 

■f^^T- A =1 -;K7)1AH£0?U\ 
77-f JUFtyg£ t'Z £$&&& 
fr*l§OZL£To 
®FCB0)+K+15IS 1 UP— K 

ZoX-fo UP-K^m^^ct 
(^McWJil't* MzL 
r<£f£U 

®FCB<7) + 33* N "0+361* 7r-f 

srt^z^x-f^ z-iiu 



ttS-H-A^o .iO-9(i7 7"f^K7) 

^IXT^bOX-ffeo 
(DHLUv7?-lZ(iP- K1"4 

*# $ %■ u p - Km-fixis^: l 

£-f 1 Lf3— K*1/*-f Mz 
&ftC« U7 hX(iFCB(7) + 16, 

+i7(75rt^%-Anxi^r*^ 
fco&to&y 7 **&*&) - 

PJLILno y^ h£J?X< 

®FCB<7)l9^li7 7'-i'^a— K£ 
(5I?Ir)I;XT£\ -tz— y<7)%& 

©y ^E 'J — 4 5 <7)£*C*T'b-fe— "7*T 

s as* p - K (7)*^- i: 111 i; 7 t- 

> ^ v a >1 AHXlz^: L £ "To 
(DFCBC7) U- =1 - F+r f Xft Z<r>WL 

•m h p - K(7)%a-^ isi»(z*g^: 

LX, 7T>^i«a>26HW 

i/a-e-tfx mfcLtzs^s—? 

-iz L f;AST>^ U -«7)rt^ 
^t-V ^.^lz##iAjn^To 
^IZ 7 r > 5"> b >1 0H<7) 7 
T -f JK7)^ P -XWtftt L * 



astoXi^<bS*fc:«>r\ 

S)f?n7cFCB(7)'^g?r7 : -'i- U^ 
h'J-(zMT'JZ^A<A»J*r 

e^(z>ijs,^4-o BAsicx^-r 

>^^U— C7)^<— v 1 &RAMIZ 
V) 'J @^.X FCB^r-V * ? T 7 ^ -fe 

^tzT^-izT.^-^j:^ ^JE^tzK 
f^L'ii^*^***^*^ -tut. 

7* -f 7. ^ -f > ^ — "7 x — 7. ROM 
*<^-v 1 (Zfc£fc«>#(7>r\ ^ 

xV ^ v- T 7 ^ -tz 7. ^^Ift L 7c^ 
^ V7 hX7-^"bl^>7^A 
p — JU^(7) lx v 7. ^ — (Drt^TfcP 

■5z:i:A<r#*ro lr>y;uU7 

hTli^B&LILfcA', I7-M 

ii^ft-f tzm^x < e*t\ 

/\— K17- (ZOUT12, RAM 
C7)F323H#itil7i x 'oC7)2^'l' h tZ N 
/\- Ki7-*mLfct #lzfR 

-5t#t6A < *sw $ nx V. n§ 7- K U 7 

tfAoX^Jfo Zl <7) 2 y <-< h ^r 

*#^^.n«; gK-/N-Fi7 
Haa^ w«f 7 c i: *«t.# * to 

?X, 4-^«FCB^^ofcr'-f 

7 i> T 7 ^ -tz 7 1:-? i ^Xi^aj L £ L 
rc FCB^ u p - K-tf-T xa ^*tz 
O^Tf^B^^PUfcl^i. 77 
+-J: U3l7n£ftXl^ r MSX2 

r MSX-D0S7— ^\°— J\> Vfv 

t j izi¥ l i ^K*4* < ?iSc $ nr v* 
rc***t\ 
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w. 


?JU'J7sh 
























L 




^ 








EQU 0005H 


















;«7A3-MI> V')-7 fl/7. 








BDOS 






7r-f*o-l ! 




SAVE: 


LO HI. FCBtO 
LD DE. FCB+1 


:FCB*OT-g»S 




BDOS 


EQU 0005H 


;5>xwa- «<«Sx;> hfi— tpu-x 




LD BC. 37-1 
LD (HL).B 






LOAD: 


LO HL. FCB+0 
LD DE. FCB+1 
10 BC. 37-1 
LO (HI). 9 
LOIR 

LO HL. NAME 
LO DE, FCB+1 
LO BC. 1! 
LD 1 R 


; F C B IC "7 t -O V * — A «• j&ST S 




LDIR 

LD HL. NAME 
LD DE. FCB+1 
ID BC. 11 
LDIR 

LD OE. FCB 
LD C. I6H 
CALL BDOS 


: F C B IC7 r -< A*-ASE3:t"« 
;7r<OI'ffl:8=J« 






LO DE. FCB 


;7r< JM05J-— ^y 




LD DE.7KI/7 


:»3iiitBllte*ift£I63:f4 






LO C. OFH 






LD C. 1AH 








CALL BOOS 






CALL BDOS 








LO OE. 7VWX 


:K*ii*Mte»**!Sgt-5 




ID HI. 


i9>yA.Sr»*a>* 






LO C. 1AH 






LO (FCB+33J.HL 


: *S&#£MMirauo-K 






CALL BDOS 






LD (FCB+35). HL 














INC L 








LO HL. 

LO (FCB+331.HL 

LO (FCB+35) . HL 

INC L 

LD (FCB + K).Hl 

LD DE. FCB 


; R*ail,£MteT4U=>-l-' 




ID (FCB + 14).HL 

LD DE. FCB 

LD HL. U3-K© 

LD C. 26H 

CALL BDOS 


: ##iit;ni- Kti-'CZ 






LD HL. (FCB + 1 6) 


; R*ffifL-3-|.'» 




LD DE. FCB 


;7r-fWL-®$>0-X 






LD C. 27H 






LD C. 10H 








CALL BDOS 






CALL BOOS 








RET 






RET 






NAME: 


OB 'TEST OAT" 


;7r-fW-i®f-J 


NAME: 


DB 'TEST DAT' 


:7 7-f)l*-A(Df-J 




FCB: 


OS 3? 
END 


;FCB/''j7t- 


FCB: 


DS 37 
END 


; F C B /< y 7 7- - 



of tware tontest 









vx MSXV#v>- 77 r-^x^P 
> X * h " Tli, frt£$ kfrhto 

* \) is-)- )\s7°n-?=7 L.&WMLX 

^ £ To 1I?i#ffc&K ti ^ 7 > 7° 
U 507J RjWt b ft £ T ^Lxm 

* ft ?ft307J R £ 1 075" R #,li 6 
ft&c^d^Ti^To 

IZTAKERUfr'bS^ftS, r MSX 

■vtfi»7n <? '=? a if— t: * jl- 



iRitSftSCfcCttoTi^iTo 
©y-Av^u*g|5H 

tzit— S5£ 3 t '- L fc t> <7)( JUK 
fcWhb»H^L*To 



y>|:ittf^(5?i\ TAKERUfr 
•bUro? ft5 r MSXV#v >7°P 

^'^AH7-t:'7sjiziKii$fti,z 
££~7^H^2T 
£fc\ MuSICA('90^10£-§-Tlr3 

©7°P V*? A fcSEII L fc .* 7* -f 7 
(7 p -y t°— x-r * $\ * -fe -v I- x 

©MSX, MSX2s MSX2+, turbo R 
(7)S!J 'JZ^RAM, VRAMC7)^7^ H 



%&K0y®3\s ft£ ) «r^lfl L tz h 
(D (im ft£ GttsM*7 'J #x £ 
-3ttT < £*l*)o fcfc\ 2(Bft^ 

lr2LT<fc£u 



35 


T107-24 




3B!8B5SESi*lU6-11-1 


z 


7nU-I7fSIIlU^U 


(807^7*- 




MSX^^^>Silia5 


% 


V7S'5i>'3>f7hflS 
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is y o 



1 7R-*-07Jbzr i JXA 




>r-AfF^fc7)3ll]g^ h7 

til ^T'7'5 7 (/ \ v 5 U ) £1$ 
l\ »^LT?--y7°£M(t3 
¥ ^ £*-* -(7)BgB|S*£ MSXT' 



- MZ «fc -3 T (i v a - * - &■£*) 
T53tfe)(7)+^ib 5MfoTS 
^fFU. 1£<7)K3£SHy--A*f 
fc £ 17*7 7^-5 TH I ^£T**@ 

• 7X7' 

5*fc<7)^L<7)"7*>2«C*<|l|i:(B[ 

• xy-a-K 

• X h \s- h 

5 ymmw-f^xu w—i? 



&*rfc t> L * l <ftU#?o L fr L t 
(Dtzsbiz £ t'SmtenWSxnmft. 
7°p^*7A 4-[eKJ5#:(7mUo 

Ifcfc^-fS 3 £ £ft**g ft (I, 

IS! i; &$#)*- KA<4lfebs„ 

• ^H/-h77 7Vi 

* hU-^777va(7)t^ 
ft, 

• n4-Y)U7. hu-h77y>a 

h777'>a« 

i\/i/-;u£*q»;fci\Mi h^>y 

<7)^j:£*T'll3-<Tl5Ll\ 

7°p?*7 a £#&£#, —m±m 
t£<n\,t?—L.<n*-h-XL.*iEe& 

Cffltt 5 C 2: ff ~ <7)gfgT<7> 

fl^tf^A^T-fTi^i^ 

frfcfr&W^lZ/NV^T-T < 

fc £ ^.(f 4-HSi 'J Iff atf-a 

U- Mi £T<7) «fc 7 (ZMiI1"-5>*\ 
mW£ h (df-35P fc-fc$B4&l*lZ 

£-z>(ti7o 

-#l M V»»tt i 7><7)fF U/cLn 



i sms©**.^ 




©y-^T 7 


©7-5'j/^o. 


©9>^7? 


B7)W\0X 


©U/— ^7 


@^7t-*-H 


<§>xy— #— H 


®7 K b— h 7:7 W S' a. 


@7vSb-h 


<§)a-Y1?,l[/7. h b- S 7-5 \y i/n. 



^-A*flfe&filJlZ7V-LT*S 
Ztfi AH*B¥(Z7V-L-C& 
( t rtSM; J: -5 fc h & £ ti £ 1t~f 
u?=y AcDjSff Tli frl> £ ^ T 
t>&LTiSWT-li#i\, fctf&& 

£07 fc<7)#OUT £t>Zfrhtz 
£tz=¥^> -J =7 — (z «Hftc7)5| 

u -3 fc fc (7) %■ (i fc* x-m i: i: o x <&■ 

ct7 -¥-<75_b-CC: A,^ ^(ZX^Sic^ 

SlfS(7)4feWfc*^i^LTfel^l^U 

m(n&XtzV*<nm,l£$:7°n f'^ 

Mzwixnzoh^^tz^io 

hh^tz^\ Cft(J#— *— <7tf£ 

(i^ti^Ji ^ i^ < r>froy®L<n& 

7 T'P^^AT'ZWKH^^fllffi 
ftt^fflTfttf, 7v#<S^t(Z 

fc i: *.(£* hU-h777->a 

hi:7 7-yva.(7)^-g-^io *'*: 



^T ^ 7 >^< 7- 4' ^(7)^?r7t \,zm 

$ T it > 7*JU7*P ^7 AC0<±*1 
^?rI^0^-r^S^lZ x SftttelN 

7j?:iji0^Ld;7o H^-r^^ti- 

-(DttT-m U #^.fcl>* — F IZ 

«7o *-K«1*fcfeiay#il 

tikMi t^ J: 7 o ^ *rtfe85g/i> 

— f'XZOlNTtSZcT)^ 4: ^(7)^< 

ioo~no liinaflOMb 
i2o~i5o mmm. mmmt 

1 40— 1 5m £ X-X"£m L T I x -l> 
1B0~170a«*B(Wb 
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yyyjij u;*h 



MflfOUSE 





100 


SCREEN 1 : COLOR 15,1,1: CLS 


1 10 


KEY OFF 


120 


DEFINT A-Z:DIM CDC 4 ) , STC 5 1 ) , CH< 4 ) , WK 


C45 


FFC4> 

DIM M1$C3),M2$C 12),Y$C9) 


130 


140 


W$=STRING$C3 , 29 )+CHR$C3 1 ) 


150 


W$=" i — i"+W$+"l l"+W$+"l l"+W$+"' — '" 


160 


CLS: PR I NT "PUSH SPACE KEY" 


170 


IF STRIGC0)=0 THEN R=RNDC 1 ) : GOTO 170 


180 


GOSUB 920 


190 


GOSUB 840 


200 


GOSUB 870 


2 10 


CLS:P=0 


220 


FOR 1=0 TO 4 


2 30 


CDC I )=STCP):P=P+1 :NEXT 


240 


GOSUB 740 


250 


FOR 1=0 TO 4:CHCI )=0:NEXT 


260 


X1=0:X0=4:S1=0:GOTO 390 


270 


S1=STICKC0): IF SI =5 THEN 430 


280 


IF SlOl THEN 350 


290 


LOCATE X 1*5+3, 3: PR I NT W$ 


300 


IF CHCX1 )=0 THEN 33® 


310 


LOCATE X 1*5+4, 4: PR I NT M1SCCDCX1) / 1 


6) 




320 


LOCATE X1*5+4,5:PRINT M2$CCDCX1) MOD 


16) 


330 


CHCX1 )=CHCX1 ) XOR 1 


340 


IF STICKC0)=1 THEN 340 ELSE 270 


350 


X0=X1 


360 


X1=X1-CS1=3)+CS1=7) 


370 


xi=xi-cxi=-i)+cxi=5) 


380 


IF X1=X0 THEN 410 


390 


LOCATE X1*5+4,7:PRINT -*" 


400 


LOCATE X0*5+4,7:PRINT " " 


410 


IF STICKC0)=S1 THEN 410 


420 


GOTO 270 


430 


FOR 1=0 TO 4 


440 


IF CHCDO0 THEN CDC I)=STCP ) : P=P+ 1 


450 


NEXT: GOSUB 740 


460 


GOSUB 490 


470 


LOCATE 4, 10: PRINT YSCPX) 


430 


IF STRIGC0)=0 THEN 480 ELSE 200 


490 


FOR 1=0 TO 4 


500 


WKCI)=CDCI) MOD 16:FFCI)=0 


510 


NEXT :GOSUB 790 


520 


PF=0:FOR 1=0 TO 3 


530 

1 

540 


IF WKC I )=WKC 1 + 1 ) THEN PF=PF+ 1 : FFC I ) = 


NEXT 



550 IF PF=1 THEN PX= 1 : RETURN 

560 IF PF=3 THEN PX=6+FFC 1 )*FFC2 ): RETURN 

570 IF PF<>2 THEN 610 

580 FOR 1=0 TO 2 

590 IF FFC I )+FFC 1+1 )=2 THEN PX=3 : RETURN 

600 NEXT : PX=2 : RETURN 

610 IF WKC0)=0 AND WKC 4)= 12 THEN WKC0)=8 

:UIF=1 ELSE WF=0 

620 FOR 1=0 TO 3 

630 IF WKC 1+1 )-WKC I )<>1 THEN SF=0 : GOTO 

50 

640 NEXT: SF= 1 

650 IF WF=1 THEN WKC0)=0 

660 FOR 1=1 TO 4 

670 IF INTCCDC I )/16) <> INTCCDC0.)/ 16 ) TH 

EN FF=0:GOTO 630 

680 NEXT:FF=1 

690 IF SF+FF02 THEN 7 10 

700 PX=8+WF : RETURN 

710 IF SF=1 THEN PX=4: RETURN 

720 IF FF=1 THEN PX=5 : RETURN 

730 PX=0 : RETURN 

740 FOR 1=0 TO 4 

750 LOCATE 1*5+3 , 3 : PRINT WS 

760 LOCATE 1*5+4 , 4 : PR INT M1SCCDCI) A 16) 

770 LOCATE 1*5+4 , 5 : PR INT M2SCCDCI) MOD 1 

6) 

780 NEXT: RETURN 

790 FOR 1=0 TO 4:MN=99 

800 FOR J=I TO 4 

8 10 IF WKCJXMN THEN MN=WKCJ):C=J 

820 NEXT: SWAP WKC I ) , WKCC) : NEXT 

830 RETURN 

840 FOR 1=0 TO 5 1 

850 STC I)=C I¥13)*16+C I MOD 13) 

860 NEXT I : RETURN 

870 FOR 1=0 TO 100 

880 R1=INTCRNDC 1 )*52) 

890 R2=INTCRNDC 1 )*52) 

300 SWAP STCR1 ),STCR2) 

9 1 NEXT I : RETURN 

920 FOR 1=0 TO 3 : READ M1SCI):NEXT I 

938 FOR 1=0 TO 12: READ M2SCI):NEXT I 

940 FOR 1=0 TO 9: READ Y$CI):NEXT I 

950 RETURN 

960 DATA ♦,»,*,♦ 

970 DATA 1,2,3,4,5,6,7,8,9,T,J,Q,K 

980 DATA X-V7, \W1 ,2^1 ,3ii-V ,?,V\,-Y ,lr>»> 

:)a 

990 DATA 9Jtnf7,4*-t-" , Xt-L-h^P'y^a , DYtJlXKL- 

h75'yya 




180—190 iB$IJ#]»Ht 

200—480 .X'f »V—"? 
200 *-F©yt7 7^ 

+j- Kc7)^J^st)LTl^§ie5lJ 

STc^rt^^Ati^^.^^— ^> 

210-230 -h- K£i£5» 
STfrhti- K £ 5 ®M 'J It L 



g-9-CD+j- K^»^-riS5UCD(Z 

ft AT 3 

240 *J- K0)3l7K 

260 n-v )vm^mnmt 

(T>h £ 390fr^- v -\» >7° 

270 a-y;u+-flWi 1 



Ttmznx^zh; 3tu^- 

K £163 J^-f- >"N i> * > ~7\ 

280 *-v;u+-^tb 2 

±.fim$ftXl^£fr^tzh, -h 

290—340 iJ- K£&3liF 

+j-K££^L/::£#, £S<7) 

350—420 a-v;i/H» 
430—450 JfU^*-K«rlB5 



460—480 '&(DWf. 

vt>7Y5i 

490—730 W®£.>\>-*> 

490—510 *7%mm%.wm 

— h\ &Mri7Z s 7#— ii— P 

igmktwmz. LT.ie^uwKiz 

LTl'tAU V— hTSo 
520—550 7>'<7 , (7>¥IJ£ 
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560 7*— A— h\ 7)W\<JX0) 
570—600 *y Vy y 7'J-7J- 

610 xn—ym^mm 

JL—7£*>7'%&17 hU- 
h ©/•;:#>©«, 
620—650 XYls-YOmfc 
660—680 7 t ?y$'3.C&$% 
690—700 7 Y U— h??'/^!, 
n-i-^fVT. Y \s— |'777 , >ifl) 
*!£ 

710— 720 X h U- K 77 •>*> 
3.©*t£ 2 

730 y—<7om& 

740—780 Mat-*- FtM? t 
790—830 7J- Y'<DV- Y 
840-860 i£?!lSTfiJ»fb 
870—910 *-KOWy7* 

920-950 k^^km*: 

960-990 SSjjUBISWt*--* 

!9S*0SCD 

7°P 7*7 A(7)3(Wx £ 3*o £ ii-5 
@(J£« feffl.® L fc<7)T** ft t> 
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Tl^ H»7>fiitt*fiX-*>7* 
<n\V&<nl±frh*Mt\W&sh-iz 
l^#fc©X't>l*lM7>£jft 
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f 
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C D (n) 
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®si*^ffl©e5ii 









#— * -¥- A (zB^it L T H 5 CO 

^ItXf^ofc^X, ^S'JSS'ft 
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5©r, ss^urL\r<tio sr^ 
^»iiaBS©fim*rft, 



^ =r107-24 

m»a5^ESSLU6-11-1 
^ 7U-I7HWtlUt:JU 

TZ BASIC©»«^ 



106 




K?D£afe/V7 




#E0Sitt$fcE*C«*fcnfcti-*Ab-*-Aa> 

fm„ iofci*»i«yc**uri»u<«ur*fc 



A * (f & 



t&53fR 



BEACH VOLLEY 



*S#iR/KENJI 

&£ *HK<7) r BEACH BALL MEN j 

A £ HfrT % fc #> e (i msx^<- 



2 Sr^rtS £ -T-Atftfe* 5 
do 15M.£ftA < £Tfc£l*fctf\ 




<7>T#HBLT151A\, itt«3^— 







tB«!(WR*-*« , ^i'- V-fcR-5 ! 



ttft 


BW* 


u^-zf 


% < -Llf 5 


Ji«?L4-*S H;#-A 




■f&<_tl**5 


T&*¥ L 4-*"*«b h 'J *f- A 




wcttir 


*?*-#» l #***£> h;#-a 




HJilcJiifs 


Si&WL &*"'*> M;*f-A 


hx 


JUitCblfS 


HJ2/-A 




mrtcmr 


*MfLft^ HJ:tf-A 


•>^>7°hx 


HJitCbtf* 


HJ #-A + B 
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:&**¥ L **-' h h 'J 2f- A + B 


■y$<y*r 
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7i'f>' h 


Ji&WLfcA"'^ HJtf-A 


K9-f^**HfS 


tTofcfcfcJ&JtofcWr 
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1 ■ 
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ttM»* 


90- 


50 


HffiS^ 


160 




z.n7<z>v>mt 


170 




X37** 


180- 


220 


-9— 7*JTO* f (DfflffiSSS 


230- 


270 


»ftT4* + ; 7?i'-©EJW 


280 — 


420 


*i.5i'*-*i»^r»a 


430— 


520 


*-ip*«i*N-r«5a 


530- 


570 


ne^fcoKE 


580- 


720 


7*v£©&a 


730- 


750 


(&»*"- ;l>©#i3 


760- 


860 


u->-7<DKia 


870- 


950 


h^ffiffil 


960- 


980 


y-c>y«©/^-vlfi:S 


990- 


1020 


*•> h©ffia 


1030 


-1110 


*-^*<aisfc<!:*©tea 


1120 


-1130 


rive a-* -©&■&£ 


1140 


-1190 


a***ffl»^Ji'-yv 


1200 


~ 1 290 


15*]Jl-3fc*£©«ia 


1300 
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1310 
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x?— y£ ur-wotea 


1340 


~1370 


*■-< Ml-BE. ^--fr-aft 


1380 


-1450 
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-1550 
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1560 


~ 1570 
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T(n) 
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S E (n) 
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&»*-*©«« 
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X. Y 


/-K-ji/oisai 


Z 


*-ji<ffl*tt«« 


sx 
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AB 


X^-f •> ^A^ffl 


CD 


KU«-AA*ffl 


E F 


MJ «-BAAffl 


CO 


»«** 


XX 


tt79J-©B?ffla3 


WH 


#(* E tK- /frE Mtv fc y - a 
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S F 


#-;KBia 


S A 


#-^« 
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3 $ \ m (t 



3#R 




JSfftZli v a -f 7.^-Y >y ^ £ffl 



MSXe VRAMB4KJU± 
U^KISllE^— yiclMR 

i& 3 —t— xizmmiz 7V- 

* fcSgfcx 9-y9 tfrSbWZ'. 7' 
\s-*>7Qmh Kl t<n £ £ 5< a 

7K/W7 



pr 
■ ■ 



m 



"■"■ 
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ilffi©fE/£ 



170 — 230 $■< Vl\>\ 
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■ ■ 
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N 
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M 
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Y fe©&gffl 
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L 
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S 
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H?* t/Uil'(r>tzfi-L 



iM||OUSE 



SHORT PROGRAM 
HOUSE 



X K ^ - V 




BEACH VOLLEY 



10 ' 

20 SCREEN 5,2:_KANJI:COLOR 15,?,7:CLS 

30 _TURBO ON 

40 CLS: LINE (0,200) -(256, 211) , 6,BF:LINE(0 

, 165) -(256 ,200) , 5,BF:ZA=1:FORT=0TO8:LINE 

(0,164 + ZA) -(25 5,1 64 + ZA) , 4 : LINE (0, 199+ZA ) 

-(255,199+ZA),10:ZA=ZA*1 .5: NEXTT 

50 B=163:ZC=164:FORZA=0TO1.5STEP.02:A=CO 

S(ZA)*80:R=RND(1)*A/3:A=A+R:LINE(128-A,B 

)-(128+A,B) , 13:B=B-1:LINE(128-A,ZC)-(128 

+A,ZC),4:ZC=ZC+.2:NEXTZA:LINE(128,200)-( 

128, 160), 15 

60 FORT=&H7800TO&H7800+512:READ A$:A=VAL 

("&H" + A$) :VPOKE T,A:NEXTT 

70 FORT=&H7600-512TO&H7600-512+63:READ A 

$:A=VAL("&H"+A$) :VPOKE T,A:NEXTT 

80 .TURBO OFF 

90 COPY(0,0)-(255,211)TO"BEACH.GRP" 

100 BSAVE"BEACH.SPR",&H7400,&H7A00,S:END 

110 DATA 3,7,7,7,7,3,7,F,F,F,F,F,1F,39,3 

0,18,80,C0,40,E0,C0,8 0,C0,C0,D0,F0,80,0, 

80,C0,D0,60,3,7,7,7,7,3,7,F,17,1F,F,7,7, 

3,2,3,80,C0,40,E0,C0,80,C0,C0,C0,80,80,0 

,0 

120 DATA 0,0,80,0,3,7,7,7,7,3,7,F,F,F,F, 

1F,3 0,30,3 8,0,80,C0,40,E0,C0,80,C0,C0,F0 

,FC,1C,C0,E0,60,70,6,C,B,15,17,17,B,F,7, 

7,7,3,7,C,C,1C,C0,60,A0,50,D0,D0,A0,E0,C 



130DATAC0,C0,80,C0,60,60,70,3,7,7,47,67 

,63,2F,3F,37,7,7,7,F,13,6,4,80,40,E0,C0, 

C0,80,C0,C0,D0,F0,80,80,0,0,0,0,0,3,6,7, 

6, 5, 3, 7, 7, 7, 7, 3, 7, A, 4, 4, 8, 90, B0, 60, C0 

140 DATA C0, 80, 40, C0,80,80,80,0, 0,0, 0,0, 

E,1F,1D,1F,1F,F,F,3F,1F,F,F,7,4,2,2,60,1 

8, 4, 2, 8 2,1, El, F9, 8 9, 8 6, 0,0, 80, 00,20,0,1, 

3, 2, 7, 3, 1, 3, 3, B, F, 1,0,1, 3, B, 6, 00 

150 DATAE0,E0,E0,E0,C0,E0,F0,F0,F0,F0,F0 

,F8, 90, 0,18, 1,3, 2, 7, 3, 1,3, 3, 3, 1,1, 0,0,0, 

0,1,C0,E0,E0,E0,E0,C0,E0,F0,E8,F8,F0,E0, 

E0,C0,40,C0,0,1,3,2,7,3,1,3,3,F,3F,3 8,3 

160 DATA 7,6, E, 0,00, E0,E0,E0,E0, 00, E0,F0, 

F0,F0,F0,F8,C,C,1C,3,6,5,A,B,B,5,7,3,3,3 

,1,3,6,6,E,60,30,D0,A8,E8,E8,D0,F0,E0,E0 

, E0, 00, E0, 30, 30, 38, 1,2, 7, 3, 3, 1,3, 3, B 

170 DATAF,1,1,0,0,0,0,C0,E0,E0,E2,E6,C6, 

F4, FC, EC, E0,E0,E0,F0, 08, 6 0,20, 10,9,0,6,3 

, 3, 1, 2, 3, 1,1, 1,0, 0,0, 0,0, 00, 60, E0, 60, A0, 

C0,E0,E0,E0,E0,C0,E0,50,20,20,6,18,20,40 



,41 

180 DA TA 80, 87, 9F, 91, 61, 0,0, 1,3, 4, 0,0, 70, 

F8,B8,F8,F8,F0,F0,FC,F8,F0,F0,E0,20,40,4 

0,38,7C,F6,FE,FE,7C,38,0,0,0,0,0,0,0,0,0 

,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0 

190 DATA 0,0,0,30,5C,F,7,7,7,7,F,1A,36,2 

5,27,3,0,0,0,18,74,E0,C0,C0,C0,C0,E0,B0, 

D8, 48, 08, 80,0 

200 DATA 1,1,B,B,B,B,A,B,B,B,B,4,4,B,B,B 

,1,1, A, A, A, A, A, A, A, A, A, 4, 4, A, A, A 

210 DATA 1,C,C,C,C,C,C,C,C, 0,0,8,8,0, C.C 

220 DATA 1,C,C,C,C,C,C,C,C,C,C,8,8,C,C,C 




=(13,5,6,7) :COL 
C0L0R=(4,6, 1,4) 
3,5,1,2) 
,0,0) :C0L0R=(4, 



20 SCREEN 5,2:_KANJI:C0L0R 1 5 , 7 , 7 : CLS : DE 

FINTA-Y:COLOR=(10,5,5,0):COLOR=(11,6,6,0 

) :C0L0R=(6,6,6,1) : COLOR= (1 2, 3 , 2 , 1 ) : COLOR 

=(4,3,4,7) :C0L0R=(13,5,6,7) 

30 COPY"BEACH.GRP"TO(0,0) ,2 

40 BLOAD"BEACH.SPR",S 

50 .TURBO ON 

60 DIM X(3),Y(3),Z(3),Q(1) , T ( 1 ) , P ( 1 ) , CH ( 

3) ,SE(1) ,F(1) ,C(32) 

70 FORT=0TO3 2:C(T)=COS(T/10+3.14)*100:NE 

XTT 

80 GOTO 1340 

M0 C0L0R=(4,3,4,7) :COLOR 

OR =(7,2,6,7) :IF ME=3THEN 

:C0L0R=(7,6, 1,2) :C0L0R=(1 

100 IF ME=4THENCOLOR=(?,0 

1,1,3) :C0L0R=(13, 1,1,1) 

110 IFHE)0ANDME()4THENCOP 

) ,2TO(0,0) ,1 :SETPAGE1,1 :F 

:SETSCROLLT,0, , 1 :NEXTT 

120 GOSUB140:IFME=4THEN13 

130 FORT=128TO0STEP-1:GOS 

01STEP2:SETSCR0LL T*O,0:N 

140 COPY(0,0)-(255,211) ,2 

GE0,0:COLOR 1 5 , 7 , 7 : SETSCR 

150 COLOR 15,7,7:COPY(0,0 

(0,0) ,0:SETPAGE0,0:RETURN 

160 T(1)=0:T(0)=0 

170 COLOR ,7:L0CATE13,3:P 

:COLORl,ll:LOCATE13,3:PRI 

; :COLOR5:GOSUB1170 

180 'f-7' 

190 X(0)=96:X(1)=32:X(2)= 

= 1 

200 X(SA*2+1)=SA*240:X=-1 

1) :P(SA)=2:P(1-SA)=0:Y=17 

.1:SX=0:K=2:Q(0)=1:Q(1)=3 

TO3:Z(T)=0:CH(T)=0:Y(T)=0 

210 PUTSPRITET, (X(T) ,184+ 

7:NEXTT:PUTSPRITE10, (X,Y+ 

220 IF STICK(SA+1)=10RC0= 

UB1150:GOTO230ELSE220 

230 ' v7\ 

240 FORT=0TO1 

250 IF STRIG(0)THENEND 

260 GOSUB280:Q(T)=T«4+1-Q(T) :IFP(T)=0THE 

NGOSUB280ELSEQQ=Q(T) :GOSUB390:Q(T)=T«4+1 

-Q(T) 



Y(0,0)-(2 
ORT=0TO25 

0ELSE160 

UB1190:FO 

EXTO,T:GO 

TO(0,0) ,0 

OLL0:RETU 

)-(256,21 



55,211 
6STEP8 



R0=-1T 

TO160 

:SETPA 

RN 

1) ,2T0 



R I N T " 

NTT(0) ;"-";T(l) 



146:X(3)=210:SF 



6*SA + 1 2+-X 

0:Z=4.4-RI 

:W=0:A=0: 

:IFT=2THEI 

Y(T)),,CH 

16) ,15,14 

1ANDSA=1THENG0S 



(SA-2+ 
:ND(1)* 
FORT=0 

;na = i 

(T)+A* 



109 



270 NEXT T:W=1-W:GOSUB430:GOTO 240 
280 IFT=1ANDCO=1THENGOSUB1460:GOTO300 
290 AB=ST1CK(T+1):CD=STRIG(T+1):EF=STRIG 

(T + 3) 

3 00 XX=0:QQ=Q(T) : IFZ (QQ) =0THENCH (QQ) =W 

310 IFAB=) 2ANDAB<=4THENXX=3 

320 IFAB>=6ANDAB(=8THENXX=-3 

330 X(QQ)=X(QQ)+XX:IF X (QQ) ) 1 07ANDT = 0ORX 

(QQ)<134ANDT=1THENX(QQ)=X(QQ)-XX 

340 IFEF=-1ANDZ(QQ)=0THENZ(QQ)=3.14:GOSU 

B960 

35 IFEF=-1ANDCD=-1ANDF(T) <2ANDGH(QQ)=4T 

HKNIFT=0ORCO=0THENGOSUB870 

3 60 A = - 2 * T + 1 : IF-A*X (T»2) ) -A»X (T*2+ 1 ) THEN 

P = T * ? P I ^FF = T*? + 1 

3 70 IFZ(QQ)=3.14ANDA*X)A«124ANDQ(T)=ETHE 

NZ(E)=0:CH(E)=0 

380 IFCD=-1THENGOSUB530 

390 IF Z(QQ))3THENW=0:Y(QQ)=SIN(Z(QQ))*6 

4:Z(QQ)=Z(QQ)+.14:IFZ(QQ))6.28THENZ(QQ)= 

0:CH(QQ)=0:Y(QQ)=0 

400 IF CH(QQ)=15-T*7THENX(QQ)=X(QQ)+4»T- 

2 

410 PUTSPRITEQQ, (X (QQ) , 1 84 + Y (QQ) ) , , CH (QQ 

)+T*7 

420 RETURN 

430 A=WH*-2+l:IF SF=-2AND1 24*A <X*A THENZ 

=Z+.0628 

440 IF SF=-4ANDE1)X THENSX=SX+2 

450 X=X+SX:Y=Y+C(Z»10-31.4)*.09:Z=Z+.031 

4:IFZ)6.28THENZ=6.28 

460 GOSUB990 

470 1FY)=192THEN 1030 

48 YU=0:IFX<0ORX)248THENYU=212-Y 

490 IF SF=-3AND114*A<X»A THBNYU=212-Y 

500 PUTSPRITE10, (X,Y+YU) , 15,14 

510 IF SF=-5 THENQ=Q+1:PUTSPRITE11, (X+Q« 

E1,Y),15,14:PUTSPRITE12,(X+Q*E2,Y),15,14 

ELSEPUTSPR1TE11, (0,216) 
520 RETURN 

530 IFP(T)=)3THENRETURN 
540 IFZ(QQ))3ANDSF<=0THEN580 
550 IFP(T)=1THEN870 
560 IFP(T) <=0ORZ(QQ)=0THEN760 
570 IFP(T)=2THEN580 
580 ' Hi 1 } 

590 IFCH(Q(T))=6THENRETURN 
600 IF X(QQ)+T*-8<XANDX(QQ)+T*-8+16>XAND 
Y(QQ)-10<Y-184ANDY(QQ)+10>Y-184THENWH=T: 
GOSUB1160ELSERETURN 

610 A=T*-2+l:W=0:C=(Y-184)-Y(QQ)+8:Z=(C/ 
16+1)*4.17:SX=C«A+RND(1)*4»A:P(T)=P(T)+1 
:P(1-T)=0 

620 IFABS(SX) <=0THENSX=A 
630 B=0:IF X(l))64THENB=-3 
640 IF CO=1ANDT=1ANDSF<=0THENC=X(QQ)-128 
:SX=-C/9-4+B:Z=6-C*.022 

650 IFSF=1THENSX=9»A+RND(1)»2*A:Z=4.5+RN 
D(l)*.2 

6 60 R=RND(1)*5:IFCH(QQ)=5THENIFR(4THENSX 
=(3+R)*A:Z=5.2ELSESX=-A*2:Z=5.2ELSECH(QQ 
)=6 
670 IFZ)6.28THENZ=6.28 



680 R = RND(1)»2:IF C0= 1 ANUT= 1 ANUX (QQ) -X (0 

) <50ANDY(0)-Y(QQ) <23ANDY(QQ) (Y(0)ANDR = 1T 

HENAB=1 

690 SF=0:GOSUB720 

700 IF AB=10RAB=20RAB=8THENSX=2»A+RND(1) 

*A:Z=4.5-RND(1)».2 

710 Q(T)=T*4+1-QQ:QQ=Q(T) :RETURN 

720 IF ABS(XX))0THENSF = F(T) :.Q = ELSE RET 

URN 

730 IFSF=-5THENB=RND(1)*3:IFB=0THENE1=2: 

E2=1ELSEIFB=1THENE1=1:E2=-1:IFB=2THENE1= 

- 1 : E 2 = - 2 

740 IFF(T)=-4THENEl=RND(l)*60+20:Z=Z-.2 

750 RETURN 

760 ' Vv-T 

770 IF X(QQ)+T*-8(XANDX(QQ)+T«-8+16)XAND 

Y(QQ)-10(Y-184ANDY(QQ)+10)Y-184THENWH=T: 

GOSUB1140ELSERETURN 

780 Z = 4.1:IF AB = 10RD AB = 20RAB = 8THENZ = 3 . 9 

790 IF AB)=4ANDAB(=6ORCO=1ANDT=1ANDSF=<0 

THENZ=4.3 

800 CH(QQ)=2:IFABS(SX))=9THENCH(QQ)=15-T 

•7:Z(QQ)=3.14 

810 IF C0=1ANDT=1THENIFSF=1THENXX=-1:Z=3 

. 8 + RND(l)*.2ELSEIFP(l)=0THENIFX> 2 20THENX 

X=-3:Z=4.3ELSEXX=3ELSEXX=-3 

820 IF C0=1ANDT=1ANDP(1)=2ANDSF<) 1THENXX 

=-l:Z=4.15 

830 D=RND(l)»2-l:A=T«-2+l:W=0:SX=3*A+D»A 

+XX*.6:Q(T)=T*4+1-QQ:QQ=Q(T) :P(T)=P(T)+1 

:P(1-T)=0 

840 SF=0:IF SF= 1 THENSF=- 1 : SX=4*A 

850 GOSUB720 

860 RETURN 

870 ' M 

880 IF X(QQ)-8(XANDX(QQ)+24)XANDY(QQ)-10 

<Y-184ANDY(QQ)+10)Y-184THENWH=T:GOSUB115 

ELSERETURN 

890 IFZ(QQ))=3.14THENZ(QQ)=9.4 2-Z(QQ) 

900 IF C0 = 1ANDT=1THENIFX> 1 60A ND ABS ( X (3) - 

X(2)) <60THENXX=-3ELSEXX=0 

910 CH(QQ)=3:W=0:Z=4.1:SX=XX/3:Q(T)=T*4+ 

1-QQ:QQ=Q(T):P(T)=P(T)+1:P(1-T)=0 

920 SF=0:GOSUB720 

930 IF T=0ANDSX(0THENSX=0 

940 IF T=1ANDSX)0THENSX=0 

950 RETURN 

960 CH(QQ)=4:IFX(QQ) (144ANDT= 1 ANDX (1 24TH 

ENCH(QQ)=5 

970 IFX(QQ)>97ANDT=0ANDX)124THENCH(QQ)=5 

980 RETURN 

990 DD=ABS(SX/2)+3 

1000 IFSX)0ANDX)124-DDANDX(124+DDANDY)16 

0THENSX=0:X=120 

1010 IFSX<0ANDX)124-DDANDX<124+DDANDY)16 

0THENSX=0:X=128 

1020 RETURN 

1030 E=2:IFX)124ANDX=<252THENE=0:B=0:GOS 

UB1120 

1040 IFX<=124ANDX)=-4THENE=1:B=1 

1045 IF X<-40RX)252THENE=1-WH:B=1-WH 

1050 IFSA=ETHENT(E)=T(E)+1:IFT(E)=15THEN 

B=5+E:SE(E)=SE(E)+1: COLOR 2+6«E : LOCATE9+7 



110 



iOGiAMJffOUSE 



*E+SE(E)*2,1 -.PRINT" * " 

1060 PUTSPRITE10, (X, 192) ,15,14 

1070 IFT(0)=14ANDT(1)=14THENLOCATE14,5:C 

OLOR10:GOSUB1170:PRINT"DEUCE! ":T(0)=13:T 

(1)=13:FORU=1TO8:FORT=0TO9999:NBXTT,U 

1080 SA=B:COLOR1,11:LOCATE13,3:PRINTT(0) 

;"-" ;T(1) -.COLOR, 7: LOCATE 14, 5: PRINT" 

1090 IFB<5THENA=B*6:L0CATE13+A,4:C0L0R 9 

: P R 1 N T " • " : LOC A TE 1 9 - A , 4 : P R I N T " " 

1100 GOSUB1170:IFB>=5THEN1200 

1110 GOTO 180 

1120 IF X(230ANDX>160 THENAI=X 

1130 RETURN 

1140 SOUND0, 200: SOUND 1,200: SOUND 2, 200: SO 

UND 13,0: S0UND7, &B001001 10 :SOUND6, 50 :SOUN 

D12, 10: SOUNDS, 255: SOUND9, 255: RETURN 

1150 SOUND0,100:SOUND1,100:SOUND9,100:SO 

UND 13,0 : SOUND 7, &B001 001 ll:SOUND 6,0: SOUND 

12,10:SOUND8,255: SOUND9,255:RETURN 

1160 SOUND0,10:SOUND1,50:SOUND2,40:SOUND 

13,0: SOUND7,&B00100110:SOUND6,245+SX:SOU 

ND12,20:SOUND8,255:SOUND9,255:RETURN 

1170 SOUND 0,90: SOUND 1,0: SOUND 2, 10: SOUND 1 

3,0:SOUND7,&B00111110:SOUND12,30:SOUND8, 

15:FORT=0TO9999:NEXTT:SOUND8,255:FORU=0T 

O1:FORT=0TO9999:NEXTT,U:RETURN 

1180 FORT=255TO16STEP-2:SOUND0,T:SOUND13 

,0: SOUND 1,1 : SOUND2.T: SOUND?, &B001 11 100: S 

OUND11,0:SOUND12,1:SOUND8,255:SOUND9,255 

:NEXT T-.RETURN 

1190 SOUND0, 25 5: SOUND 1,255 : SOUND 2, 10: SOU 

ND13,0:SOUND7,&B00111110:SOUND12,1:SOUND 

8,255:RETURN 

1200 GOSUB1180 

1210 PO=0:IFSE(0)=2THENC=64:GOSUB1290ELS 

EIFSE(1)=2THENC=192:GOSUB1290 

1220 K=B-5:FORT=K*2TOK*2+l:CH(T)=3+K»7:Y 

(T)=0:NEXTT 

1230 F0RT=1T09+P0*4: FORZ=3. 14T06 . 28STEP . 

05:Y=SIN(Z)«64:FORQ=K«2TOK»2+1 

1240 PUTSPRITE Q, (X(Q) .Y + 184) , ,CH(Q) 

1250 NEXTQ,Z,T 

1260 FORT=0TO3:Y(T)=0:Z(T)=0:NEXTT:SA=K 

1270 IF PO=1THENGOSUB1300:GOTO 1340 

1280 GOTO 160 

1290 FOR Z=0TO3.14STEP.0785:X=COS(Z)*100 

:Y=SIN(Z)«100:LINE(C,199)-(C-X,199-Y) ,11 

:NEXTZ:SE(0)=0:SE(1)=0:PO=1 : RETURN 

1300 IF CO=1ANDC=192THENPUTSPRITE0, (0,21 

6) : COLOR 15,1, 1 : CLS : LOCATE8 , 5 : PRINT" G A 

ME O V E R ":FORO = 0TO7:FORT = 0TO9999:N 

EXTT,0:COLOR 1 5 , 7 , 7 : CLS : RETURN 

1310 AB=0:IF C0=1ANDC=64THENME=ME+1 : IFME 

=2THENAB=75ELSEIFME=3THENAB=61ELSEIFME=4 

THENAB=37ELSEIFME=5THENPSET(0,0),15:RETU 

RN1560 

1320 IF ABO0THENRETURN1390 

1330 RETURN 

1340 GOSUB140:COLOR 1 , 1 1 : LOCATE? , 2 : PRINT 

" Lets Beach Volley ":COLOR 1 , 13 : LOCATE1 

0,3:PRINT" - *»ftr ffi - ":COLOR 5,14 

1345 LOCATE9,5:PRINT" A*'jy-1PLAY ":LOC 



ATE9,6:PRINT" B*' * y- 2PLA YS ": SA = : COLOR 1 

,14:F(0)=-2:F(1)=-2:ME=0 

13 50 R = RND(1) :IFSTRIG(l)THENCO=l : GOTO 138 



1360 

12,3, 

1370 

1380 

(A$) 

1390 

1400 



IFSTRIG(3) THEN CO =0: COLOR ,7:C0L0R=( 

2, 1) :C0L0R=(8,7, 1,1) : GO TO 90 

GOTO 1350 

L0CATE9,8:INPUT" PASSWORD ";A$:AB=ASC 



AI=210:F(1)=0 

IFAB=37THENF(l)=-3:COLOR=(12,l,6,l) 
: COLORS (8, 7, 1,1) : ME = 4 : A$ = " ^ « ft Sm " 
1410 IFAB=61THENF(l)=-4:COLOR=(12,7,l,l) 
:COLOR=(8,3,7,3) : ME = 3 : A$ = " * \\ f£ " 
14 20 IFAB=75THENF(1) =-5 :COLOR= (12,0,0,0) 
: CO LOR =(8, 0,0,0) :HE = 2:A$ = " M $L CO %" 
1430 IFF(1)=0THENF(1)=-2:COLOR=(12,7,7,2 
) :C0L0R=(8,7,1,1) : HE = 1 : A$ = " & & h L":AB = 


1440 PUTSPRITE0, (0,216) :C0L0R 15,0,0:CLS 
:LOCATE14,3:PRINTME:LOCATE12,5:PRINTA$:L 
OCATE10,8 

1450 PRINT"PASSWORD " ; CHR$ ( AB) : FORO=0TO 
6:FORT=0TO9999:NEXTT,O:GOTO 90 
1460 AB=0:CD=0:EF=0:XG=X+4:QQ=Q(1) :IFSX= 
)4ANDZ(QQ)=0ANDSF=<-1ANDY<165+Y(QQ)ANDP( 
1)=0THENXG=X+SX*6 

1465 IF Y(QQ)+184-Y<20ANDX)120THENCD=-1 
1470 IFX> 120THENIFXG)X(QQ)THENAB=3ELSEAB 
= 7 

1480 IF AB=3ANDQ(1)=2ANDX(2))X(3)-30ANDP 
(1)=0ANDZ(2)=0ANDZ(3)=0THENAB=0 
1490 IFX)240THENAB=0 

1500 R=RND(l)*6-2: IFX<128ANDZ(5-QQ)=0THE 
NIFZ(0))3.7ANDZ(0) (4ANDX (0) ) 1 00ORZ ( 1 ) > 3 . 
9ANDZ(1) <4.2ANDX(1))100THENIFR<=2THENEF= 
-1 

1510 IFX(124ANDQQ=3THENIFX(3))AITHENX(3) 
=X(3)-3ELSEX(3)=X(3)+3 
1520 IFX(124ANDQQ=2THENAB=7 
1530DD=50-(X(QQ)-128)/2:IFY)DDANDX>12 2A 
NDZ)4.?2ANDZ<6.28ANDX(160ANDX(QQ) U70AND 
Y<135ANDZ(5-QQ)=0ANDSX<7ANDP(1) <=2THENEF 
= -1 

1540 IFR=0THENIFSF=1ANDZ)=4.6ANDZ=<4.64T 
HEN EF=-1 
1550 RETURN 
1560 _TURBO OFF 
1570 A=POINT(0,0) 
1580 COLOR 15,1,1 
T=0TO128:LINE(T,T)-(256-T,256-T) 
TT:CLS 

1590 _KUSIC:_BGM(1) :RESTORE1650 
16 00 GOSUB16 30:GOSUB1630:LOCATE7,2: PRINT 
"*£ h h L CO fii{{i":GOSUB16 30:LOCATE4,3:P 
RlNr'^Mffi&liOflJcttfcJ: o X ":GOSUB1630:L 
0CATE7,4:PRINT":£ S , ft? $[ $ tl fc . ":G0SUB 
1630 

1610 LOCATE3,5:PRINT" U fr L , £ # *£ ^ & 
£> tf *) ":GOSUB16 30:LOCATE4,6:PRINT" B E A 
C H M A N £(2":GOSUB1630:LOCATE7,7:PR 
INT"fr& <9 B * Ji & t"v . ":GOSUB 16 30: LOCATE 
8,10:PRINT"T HE END" 



IFAO 15THENEND 
PUTSPRITE0, (0,216) 
1,B 



FOR 
NEX 



111 



1620 IFSTRIG(1)THENC0L0R 1 5 , 7 , 7 : CLS : CLEA 

R:RUN ELSEGOSUB1630:GOTO 1620 

1630 READA$,B$:IFA$="END"THENRESTORE1660 

:GOTO 16 30ELSEPLAY#2,A$,"@24V10"+A$,B$ 

1640 FORO=0TO0:FORT=0TO500:NEXTT,O:RETUR 

N 

1650 DATA T?3V15L8§48,T73V9L16@1 

1660 DATA 04C2R403B04CCCCCCCCCAAAAAAAA 

1670 DATA E2R4R8D.CCCCCCCCGGGGGGGG 

1680 DATA C2.AAAAAAAAAAAAAAAA 

1690 DATA D4EDC03BAB.FFFFFFFFGGGGGGGG 

1700 DATA 04C2,CCCCCCCCCCCCCCCC 

1 710 DATA END, 




«f^75»B108^-yK 



113 ' 



f ire 



o.u 1991 9/24 



20 SCREEN 1,3: KEY OFF : COLOR 15,4,4 

30 DEFINT B-2:FORJ=0TO5:B$="":FORI=0TO31 

: READ A$ : B$=B$+CHR$C VALC "&H"+A$) ) : NEXT: S 

PR I TE$C J )=B$ : NEXT : SOUND7 ,190: SOUND 13,9 

40 FORJ=769TO996STEP64:FORK=0TO1 :FORI=0 

T07 : READ Q$ : VPOKEJ+ I +K*9 , VALC " &H" +Q$ ) : NE 

XT : NEXT : NEXT 

50 FORI=960TO967:READ Q$: YPOKE I , VALC "&H" 

+QS):NEXT: VPOKE 3209,14 

60 W=40:Z=47: V=207:M=2:X=1 1G:Y=120 

70 ' screen 

90 FOR K=2 TO 11: IF K=9 THEN NEXT 

90 IF K=7 THEN RESTORE470 : F= 1 

100 VDPC2)=K:POKE &HF923 , K*4: CLS 

110 FORJ= 1 0TO2 1STEP3: FOR I =0TO2: LOCATE 0, 

J+I : PR I NT STRING$<29,96+I*8); : NEXT: NEXT 

120 FORJ= 1 0TO2 1 STEP3 : FOR I =0TO2 : READL , P 

130 IF F=l THEN L=27-L-P 

140 IF J=19 AND 1=0 THEN LCK-2 )=L*8 : RCK- 

2)=CP+L+1)*9 

150 LOCATE L, J+I: PRINT CHRSC97+ 1*8 >+STR I 

NGSCP , 120 )+CHR$C 97+ 1 *9 ) : NEXT : NEXT : NEXT 

160 FOR 1=0 TO 4: READ C$CI):NEXT 

170 ' title 

190 POKE&HF923,48:CLS:FORI=3T012:READ T$ 

:LOCATE3, I : PRINTTS: NEXT: GOSUB 370 

190 VDP<2>=12:FORI=0TO999:NEXT: X=l 16 

200 LOCATE 1 2 , 2 1 : PR I NTUS I NG'"9<Z»«88M . tt" ; A/ 

60 

2 10 PUTSPRITE O.CX.Y), 1 ,N:PUTSPRITE l.CX 

, Y ) , 9 , N+ 1 

220 S=STICKC0)ORSTICK< 1 ):LOCATE10, 13:PRI 

NT "3-7. "C+l :C=C-CS=n*CO0) + CS=5)*CC<4) 

: IF STRIGCtnORSTRIGCl) THEN ELSE 220 

230 TINE=0 

240 M=0:L=0: A=0:ST=0' main 

250 VDPC2)=2:FORI=0TO2:PLAY"V15O4L9C":FO 

RJ=0TO1000:NEXT J, I :PLAY"L405C" 

260 GOSUB 370:VDPC2)=M+2 

270 S=STICK( 1 >ORST I CKC0): PUTSPRITE 0,(X, 

Y>, l.N: PUTSPRITE 1 , <X, Y> , 9 , N+l : N=-(S=3 >* 



IB, 17,F,3,3, 

99,40,20, A0.C0.C0, 90, 



4-CS=7)*2 

290 IF L(M)>X OR R(MXX THEN BEEP:X=116: 

ST=0 : FOR I =0TO5000 : NEXT 

290 ST=ST-(STRIG<: 1 50RSTRI G(0 ) )*7-l+STRIG 

C 3 )*9 : SOUND7 ,190: SOUND 13,9: SOUND9 ,16: SOU 

ND10, 16: SOUND 1 1 , 200-ST : GOSUB 370 

300 IF ST>160 THEN ST=160 

310 FOR I=ST+90 TO 160: IF ST>0 OR STRIGC 

1 ) THEN NEXT ELSE 3 1 

320 X=X+CCS=7)*2-CS=3)*2+CCM=20RM=4)*4-C 

M=70RM=9)*4+CN=3)*9-CM=9)*8)*C STRIGC 3 >+l 

))*2 

330 GOSUB 370 

340 M=VALCMIDSCCSCC), A+l , 1 )): A=A+.3: IF M 

<>6 THEN 260 

350 BEEP:M=0:A=0:L=L+1 : IF L<2 THEN 260 

360 A=TINE:FORI=0TO999:NEXT:GOTO 190 

370 VPOKE 9204,W:VPOKE9205,Z: VPOKE 9206, 

V:SWAP W,V:SWAP V,Z: RETURN 

390 ' data 

390 DATA 3,7,7,7,3, , ,23,4,9 

1.60,C0,C0,C0,90, , 

90, 

400 DATA 3,7,7,3,C, IF, IF, 1C,8, 10,20,20, 1 

0,8, , ,90,C0,C0,90,60,F0,F0,70,20, 10, 19,3 

9,30,20, , 

410 DATA ,, ,70,F9,F9,F9,70, , 1 ,2,2,92, 1 , 1 

40, , ,E0, 10,59,F9,70,F9,5C,8"C 

420 DATA ,, 3,F,7F,FE,FC,7C,C, IE, 1E.F 

, 90, B0, 19,9 

430 DATA 2, , ,7, 19.2A, 1F.E, 1F.3B.30, 

,, ,E, IF, IF, 1F,E, ,90,40,40,41 ,90. , 

440 DATA ,,,,,, 1 ,D, 19,20, ,,,,, 1 ,,,,,, ,C0 

,F0,FE,7F,3F ( 3E,30,79,F9,F0 

450 DATA FF , FF , FF , FF , FF , FF , FF , FF , , 

, FF , FF , FF , FF , FF , FF , FF , FF , , FF , FF , F 

F,FF,FF,FF,FF,FF, ,,,,,,, ,55, AA, 55, AA, 55, 
AA,55,AA 

460 DATA 12,3,11,5,10,7,9,9,9,11,7,13,6, 
15,5, 17,4, 19,3,21 ,2,23, 1.25 
470 DATA 17.2,14.4.11,6,9.9,9.11,7,13,6, 
15,5, 17,4, 19,3,21,2,23, 1,25 
490 DATA 17,2,14,4,11,7,9,9,9,9,7,10,6,1 
1 ,5, 13,4, 14,3, 16,2, 17, 1 , 19 

490 DATA 19.4,17.6,14,9,11,10.9.11,7,12, 
6, 13, 4, 14, 3, 14, 2, 15, 1, 15,0, 16 
500 DATA 19,3,16,5,14,6,11,9,9,11,7,12,6 
, 13,4, 15,3, 16,2, 16, 1 , 17,0, 18 
510 DATA 0000001232013234440013334001233 
40057699000006,0000000 133340000 133340000 
133233233400000123 123322222222332222222 
3340006 

520 DATA 0001233222222233400012333332220 
000576990005787788890006.0000000000 12333 
4000 123332222222057989000 123340578900005 
79977799990006 

530 DATA 0005799900057889000123340579990 
12340 1233222222223322222332222 100579990 1 
233223332233220000006 

540 DATA aaaaa a aaaa aaa.a a a a 
a , a a a a aaa , a a aaaa a , aaa 
a a a aa , a a a a, a a a, a 
a, a, a 
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